var a,b,c:real; begin a := Random(9)+1; b := Random(9)+1; writeln('Сколько будет',a,'+',b,'?'); readln(c); if c = a * b then writeln('Правильно'); else writeln('Не правильно); end. Скажите если не работает я поправлю.
2 votes Thanks 2
roman1020
поправка: там где строка writeln('Сколько будет',a,'+',b,'='); Там вместо + умножение
Answers & Comments
var a,b,c:real;
begin
a := Random(9)+1;
b := Random(9)+1;
writeln('Сколько будет',a,'+',b,'?');
readln(c);
if c = a * b then writeln('Правильно');
else writeln('Не правильно);
end.
Скажите если не работает я поправлю.