СД
Сергей Демин
помогите с turbo paskal!!!!
я написал такую прогу:
Program ugadaika;
var c,s,k:longint;
begin
s:=0;
c:=random(100);
repeat
writeln ('Give key');
Readln (k);
s:=s+1;
if k>c
then begin
writeln ('new key, this is bigger');
end;
if k
if k
не влазит
if k