Pascal

Сложите и умножьте два числа:12 и 60. Чем отличается сумма от произведения? Выпечатайте на экран ещё 4 пары чисел, удовлетворяющих той же закономерности. Составьте программу.

1

Ответы и объяснения

  • oxxid
  • середнячок
2013-11-04T19:57:01+04:00
Program first;
var a,b,c,d,i:integer;
begin
a:=12*60;
b:=12+60;
c:=a-b;
writeln('Сумма отличается от произвидения на',c);
i:=1;
while i<>4 do begin
a:=random(10000);
b:=random(10000);
d:=(a*b)-(a+b);
if d=c then begin
writeln('Еще удовлетворяют условие числа',a,'и',b);
i:=i+1;
end;
end;
end.