Ответы
Ответ дал:
0
var
a, b: Integer;
begin
Randomize;
a := Random (1000) + 1;
while a <> b do begin
Write ('Введи число!!!');
ReadLn (b);
if b > a then
WriteLn ('Перебор!!!')
else if b < a then
WriteLn ('Маловато будет...')
end;
WriteLn ('Молодец! Угадал!');
ReadLn;
end.
Ответ дал:
0
Program n_1;
var a, b: integer;
begin
randomize;
a:=random (1000) + 1;
while a <> b do begin
write ('Введи число!!!');
readln (b);
if b > a then writeln ('Перебор!!!')
else if b < a then writeln ('Маловато будет...')
end;
writeln ('Молодец! Угадал!');
readln();
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад
8 лет назад