Mavetius
7 год назад
Написать программу хакер компьютер загадывает число от 0 до 99 пользователь разгадывает его вводя числа с клавиатуры
ОТВЕТЫ
Гермоген
Jul 16, 2019
Program hacker;
var a,b:integer;
begin
a:=random(100);
repeat
begin
read(b);
if alt;gt;b then writeln(Вы не угадали число)
else writeln(Поздравляю! Вы угадали число);
end;
until b=a;
end.
var a,b:integer;
begin
a:=random(100);
repeat
begin
read(b);
if alt;gt;b then writeln(Вы не угадали число)
else writeln(Поздравляю! Вы угадали число);
end;
until b=a;
end.
99
Смежные вопросы:
