Составьте программу проверки умения складывать двузначные цифры — Pascal(Паскаль)

var
a,b,c:integer;
begin
writeln('vvedite 1 chislo');
readln(a);
writeln('vvedite 2 chislo');
readln(b);
writeln('vvedite ih summu');
readln(c);
if c=a+b then writeln('verno!') else writeln('idiot! takuyu fignyu sdelat ne mojesh!);
readln;
end.

Следующий вариант

uses crt;
var a,b,c: integer;
begin
randomize;
clrscr;
a:=random(90)+10;
b:=random(90)+10;
write(a,' + ',b,' = ');
readln(c);
if c=a+b then write('верно!')
else write('неверно');
end.

Leave a Comment

− 3 = 1