Скласти програму, що перевіряє знання таблиці множення. в ній випадковим чином одержати два числа (від 0 до 9), після чого на екран виводиться питання у вигляді: „чому дорівнює добуток 4 на 9? ”. після вводу відповіді повинно видаватись повідомлення, чи відповідь вірна. питання виводити 12 раз та підраховувати кількість вірних та невірних відповідей. в кінці поставити оцінку.

var j, a, b, n: integer;

label 1;

begin

1: randomize;

  a: = random (9);

  b: = random (9);

  write (a, '*', b, '=');

  read (n);

  if n = (a * b) then writeln ('відповідь вірний! ')

            else writeln ('відповідь неправильний! ');

  writeln ('продовжуватимеш? ');

  writeln ('якщо так то натисни 1');

  writeln ('якщо немає то натисни 2');

  read (j);

  if j = 1 then goto 1;

  if j = 2 then writeln ('до побачення! ');

end.

начебто так, точно не пам'ятаю.

#include <iostream>
using namespace std;
int main()
{
cout <<"4,4"<<endl;cout <<"4,5"<<endl;cout <<"4,6"<<endl;cout <<"4,7"<<endl;cout <<"4,8"<<endl;cout <<"4,9"<<endl;cout <<"5,0"<<endl;cout <<"5,1"<<endl;cout <<"5,2"<<endl;cout <<"5,3"<<endl;cout <<"5,4"<<endl;cout <<"5,5"<<endl;cout <<"5,6"<<endl;cout <<"5,7"<<endl;cout <<"5,8"<<endl;cout <<"5,9"<<endl;cout <<"6,0"<<endl;cout <<"6,1"<<endl;cout <<"6,2"<<endl;cout <<"6,3"<<endl;cout <<"6,4"<<endl;
}

Var
  n,i,s,k,p:integer;
begin
  p:=1;
  write('Введите число ');
  readln(n);
  writeln(' среднее арифметическое от 1 до ',N,' = ',(n+1)/2);
  for i:=1 to n do begin
    if (i mod 3 = 0) and (i mod 2 = 0) then begin
      s:=s+i; k:=k+1;
    end;
    p:=p*i
  end;
  writeln(' среднее арифметическое целых,чётных,кратных 3 чисел от 1 до ',N,' = ',s/k);
  writeln(' произведение чисел от 1 до ',N,' = ',p);
end.

Тестовое решение:
Введите число 10
 среднее арифметическое от 1 до 10 = 5.5
 среднее арифметическое целых,чётных,кратных 3 чисел от 1 до 10 = 6
 произведение чисел от 1 до 10 = 3628800