Задача контролирующая программа. Предлагаеться 10 задач на сложение двух целых двузначных. Числа задаются случайным образом. Каждый ответ комментируется - правильно или вы ошиблись. после выполнения всех заданий выдаётся количество правильных ответов и выставляются оценки. Язык поскаль, делфи.

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.