Var a,b,c,i,sum,cp:integer; begin sum:=0; cp:=0; Randomize; writeln('Посчитайте сложение:'); while i<10 do begin a:=random(40)+10; b:=random(60)+10; sum:=a+b; write('Сколько будет ',a,'+',b,'= '); read(c); if c=sum then begin cp:=cp+1; writeln('Молодец!'); end else writeln('Неправильно'); i:=i+1; end; writeln('Всего правильных ответов ',cp); write('Оценка:'); if (cp<=4) then write('Очень плохо (2)') else if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else if (cp>=7) and (cp<=8) then write('Хорошо (4)') else if (cp>=9) then write('Отлично! (5)'); end.
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.