ДАЮ 50 БАЛОВ
Створити програму для перевірки таблички множення На екран вивести приклад Вводимо результат Якщо відповідь правильна : -Вивести повідомлення «Правильно» - вивести «Наступний приклад» Якщо відповідь неправильна: - Вивести повідомлення «Неправильно» Знову вивести приклад Знову ввести результат - Запрограмувати 5 прикладів. Пожалуйста нужно очень срочно!!!!
Створити програму для перевірки таблички множення На екран вивести приклад Вводимо результат Якщо відповідь правильна : -Вивести повідомлення «Правильно» - вивести «Наступний приклад» Якщо відповідь неправильна: - Вивести повідомлення «Неправильно» Знову вивести приклад Знову ввести результат - Запрограмувати 5 прикладів. Пожалуйста нужно очень срочно!!!!
Answers & Comments
Ответ:
//Название программы
program df342;
//Начало программы
begin
//Переменные
var a,b,i,answer,plrAnswer: integer;
while i <> 5 do begin
a:= random(1,9); // Первый множитель
b:= random(1,9); // Второй множитель
answer:= a * b; // Правильный ответ
print(a,'*',b,'='); // Вывод на экран примера
readln(plrAnswer); // Считывание с клавиатуры ответа пользователя
if plrAnswer = answer then // Проверка на правильность ответа пользователя
println('Правильно! Наступний приклад:') // Выводится если ответ пользователя правилен
else println('Неправильно! Наступний приклад:'); // Выводится если ответ пользователя неправилен
i += 1; // +1 к количеству повторов
end;
end.
Объяснение:
Я не знал какой язык нужен поэтому на паскале АБС накалякал, немного криво но работает всё как сказано