ZaXoD
Var a,b,c,z:integer; Begin a:=random(100)+1; b:=random(100)+1; if b>a then Begin c:=a; a:=b; b:=c; End; c:=a-b; Writeln('Сколько будет ', a,'-',b); Readln(z); if z=c then Writeln('Молодец') else Writeln('Холодец ',a,'-',b,'=',c) End.
1 votes Thanks 1
ZaXoD
Меня очень удивили "однозначные числа от 1 до 100", но ладно...
Answers & Comments
a,b,c,z:integer;
Begin
a:=random(100)+1;
b:=random(100)+1;
if b>a then
Begin
c:=a;
a:=b;
b:=c;
End;
c:=a-b;
Writeln('Сколько будет ', a,'-',b);
Readln(z);
if z=c then Writeln('Молодец')
else Writeln('Холодец ',a,'-',b,'=',c)
End.