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

140

441

Посмотреть ответы 2

Ответы на вопрос:

neste2

Информатика

4,8(38 оценок)

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.