Вопрос, который вызвал трудности
Составить программу проверки знаний учеником таблицы умножения
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Составить программу проверки знаний учеником таблицы умножения
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Program test;
Var x,y,i,z: integer;
Begin
for i:=1 to 10 do
begin
x:= random(8) +2;
y:= random(8) +2;
writeln (‘Сколько будет’,x,’*’,y,’?’);
read (z);
if z=x*y
then writeln (‘Правильно!’)
else writeln (‘Неправильно! ‘, x,’*’ ,y ,’=‘,x*y);
end;
end
Var x,y,i,z: integer;
Begin
for i:=1 to 10 do
begin
x:= random(8) +2;
y:= random(8) +2;
writeln (‘Сколько будет’,x,’*’,y,’?’);
read (z);
if z=x*y
then writeln (‘Правильно!’)
else writeln (‘Неправильно! ‘, x,’*’ ,y ,’=‘,x*y);
end;
end