Составить программу Паскаль z-произведение x, y -случайные числа f- кол-во правильных ответов Если пользователь правильно посчитал, то поздравить его. А если нет, то сказать, что нет.
Составить программу Паскаль z-произведение x, y -случайные числа f- кол-во правильных ответов Если пользователь правильно посчитал, то поздравить его. А если нет, то сказать, что нет.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
x, y, z, f, answer: integer;
begin
Randomize;
f := 0;
for f := 1 to 10 do
begin
x := Random(10) + 1;
y := Random(10) + 1;
z := x * y;
writeln('Умножьте ', x, ' на ', y);
readln(answer);
if answer = z then
begin
writeln('Правильно! Поздравляем!');
end
else
begin
writeln('Неверно! Правильный ответ: ', z);
end;
end;
end.
Эта программа генерирует 10 уравнений вида "Умножьте x на y" и запрашивает у пользователя ответ. Если ответ правильный, программа поздравляет пользователя, если нет - показывает правильный ответ.