Question

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

Answer 1

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.