Предмет: Информатика,
автор: ratlady
Написать программу "Угадай число". Программа загадывает рандомное число(от 0 до 100) а пользователь должен отгадать его. Программа должна давать подсказки, больше или меньше загаданное число. На паскале пожалуйста
Ответы
Автор ответа:
1
program znanija;
var
a,c:integer;
begin
a:=Random(0,100);
while c <> a do
begin
readln(c);
if c>a then
writeln('Число больше чем загаданное');
if c<a then
writeln('Число меньше чем загаданное');
if c=a then
writeln('ПОБЕДА!');
end;
end.
Интересные вопросы
Предмет: История,
автор: vikacom228
Предмет: Русский язык,
автор: andrei201104
Предмет: Математика,
автор: zmabekaruzan8
Предмет: Математика,
автор: эля564