Написать программу, которая, используя генератор случайных величин выводит на экран пример на умножение 2-х случайных однозначных чисел, запрашивает ответ пользователя, проверяет его и выводит сообщение “ Правильно!” или “Вы ошиблись” и правильный ответ. — Pascal(Паскаль)

uses crt;
var a,b,c,d:integer;
begin
clrscr;
randomize;
a:=random(10)+1;
b:=random(10)+1;
c:=a*b;
writeln('Вычислите произведение ',a,'*',b,'=');
readln(d);
if d=c then write('Правильно!')
else write('Вы ошиблись');
readln
end.

Leave a Comment

4 + 5 =