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.
Раскодировка в понятный формат
7, 8, 9, 10, 11 - всего 5 штук
В начале S=0 и дальше 5 раз прибавляем 11
Вывод:
Ответ 55
Program qq;
var s:string;
x,i:integer;
begin
writeln('Введите предложение:');
readln(s);
x:=length(s) div 3;
for i:=1 to x do
s[i*3]:='а';
writeln(s);
<span>end.</span>