Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Задача контролирующая программа. Предлагаеться 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.