Предмет: Информатика,
автор: wah37991
Написать программу, которая выводит пример на умножение двух однозначных чисел, которые выбираются случайным образом, запрашивает ответ пользователя, проверяет его и выводит сообщение «Правильно!» или «Вы ошиблись» и верный результат. Pascal ABC
Ответы
Автор ответа:
0
var
a,b,r:byte;
begin
randomize;
a:=Random(9)+1;
b:=Random(9)+1;
Write(a,' x ',b,' = ');
Readln(r);
if r=a*b then Writeln('Правильно!')
else Writeln('Вы ошиблись. Верный результат ',a*b)
end.
a,b,r:byte;
begin
randomize;
a:=Random(9)+1;
b:=Random(9)+1;
Write(a,' x ',b,' = ');
Readln(r);
if r=a*b then Writeln('Правильно!')
else Writeln('Вы ошиблись. Верный результат ',a*b)
end.
Похожие вопросы
Предмет: Алгебра,
автор: firpozzi01
Предмет: Қазақ тiлi,
автор: ibragimovarmn
Предмет: Биология,
автор: kuraevbinoka10
Предмет: Информатика,
автор: kseniyaselenskikh
Предмет: Алгебра,
автор: ilmira2000