Создайте программу, которая загадывает пример на сложение - Pascal ABC

Формулировка задачи:

Создайте программу, которая загадывает пример на сложение двузначных чисел ( использую генератор случайных чисел), получает ответ и выдает оценку ответа (Верно!), если нет то (неверно! Верный ответ..)

Код к задаче: «Создайте программу, которая загадывает пример на сложение - Pascal ABC»

textual
uses Crt;
var a,b,c,i,kol,osh:integer;
Begin
write('''введите количетво примеров''');
readln(kol);
repeat i:=i+1 ;
a:=random(256);
b:=random(256);
Write(a, '+', b,'=');
 
Readln(c);
 
if a+b<>c then Writeln('Не верно')
else writeln('Верно');
if a+b<>c then osh:=osh+1;
until i=kol;
Writeln(osh,'''ощибок''');
end.

6   голосов, оценка 4.500 из 5


СОХРАНИТЬ ССЫЛКУ