Предмет: Информатика,
автор: katyshka011
написать программу хакер компьютер загадывает число от 0 до 99 пользователь разгадывает его вводя числа с клавиатуры
Ответы
Автор ответа:
0
program hacker;
var a,b:integer;
begin
a:=random(100);
repeat
begin
read(b);
if a<>b then writeln('Вы не угадали число')
else writeln('Поздравляю! Вы угадали число');
end;
until b=a;
end.
var a,b:integer;
begin
a:=random(100);
repeat
begin
read(b);
if a<>b then writeln('Вы не угадали число')
else writeln('Поздравляю! Вы угадали число');
end;
until b=a;
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: ashatilyasiv07
Предмет: Английский язык,
автор: galievadariga25
Предмет: Алгебра,
автор: Аноним
Предмет: Алгебра,
автор: 79656281170
Предмет: Математика,
автор: nataljamalzam