Паскаль. Написать программу проверка знаний таблицы умножения. Программа должна вывести 10 примеров и выставить процент знаний ученика: 100% отлично, 90%-80 % хорошо, 70%-40% удовлетворительно, 30%-0% Неудовлетворительно. С встроенной процедурой CRT

Uses crt;var  k, i, a, b, c: byte;
begin   clrscr;   randomize;   for i := 1 to 10 do  begin    a := random(1, 10);    b := random(1, 10);    write(a, * , b, = );    read(c);    if a * b = c then inc(k);  end;  case k of    0..3: writeln(k, 0% Неудовлетворительно);    4..7: writeln(k, 0% Удовлетворительно);    8..9: writeln(k, 0% Хорошо);    10: writeln(k, 0% Отлично);  end;end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.