Question

ДАЮ 50 БАЛОВ
Створити програму для перевірки таблички множення На екран вивести приклад Вводимо результат Якщо відповідь правильна : -Вивести повідомлення «Правильно» - вивести «Наступний приклад» Якщо відповідь неправильна: - Вивести повідомлення «Неправильно» Знову вивести приклад Знову ввести результат - Запрограмувати 5 прикладів. Пожалуйста нужно очень срочно!!!! ​

Answer 1

Ответ:

//Название программы

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.

Объяснение:

Я не знал какой язык нужен поэтому на паскале АБС накалякал, немного криво но работает всё как сказано