Question

Помогите ребят с Паскалем на кану оценка за четверть пж.
Нужно написать программу которая проверяет у тебя таблицу умножения, машина должна дать 10 примеров и показать результат. Причём чтоб они не повторялись. Мы должны вбивать в конце одно число. Это ответ в каждом примере

Answer 1

Var
a,b,i,z:integer;
Begin
ClrScr;
Randomize;
for i:=1 to 10 do
 begin
 a:=random(9)+1;
 b:=random(9)+1;
 write(a,'*',b,' = ');
 readln(z);
 if z=a*b then writeln('Верно!')
 else  writeln('Не верно! ',a,'*',b,' = ',a*b);
 end;
readln;
end.

Пример (для 3 заданий):
6*6 = 36
Верно!
8*3 = 26
Не верно! 8*3 = 24
2*4 = 8
Верно!