Advertisement
Infiniti_Inter

Домашнее задание

Feb 2nd, 2016
142
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.14 KB | None | 0 0
  1. var
  2. a,b,c,d:longint;
  3. begin
  4. readln(a,b,c);
  5. if (a+b=c) or (a*b=c) then d:=1
  6. if (a+b=c) and(a*b=c) then d:=0;
  7. writeln(d);
  8. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement