Составить линейную логическую программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае: сумма каких-либо двух цифр заданного трехзначного натурального числа N равна третьей цифре
var a,b,c,n:integer;
begin
readln(n); a:=n div 100; b:= n div 10 mod 10; c:=n mod 10;
writeln((a+b=c)or(a+c=b)or(b+c=a)); readln
end.
P.S. У barney calthoun, во-первых, не стандартный Pascal, во-вторых, проверяется только равенство третьей цифры сумме первой и второй цифр.
uses math;
var
a, b, c: integer;
begin
read(c);
a := floor(c/100);
b := floor(c/10) - a*10;
c := c - b*10 - a*100;
if (a + b = c) then
writeln('true')
else
writeln('false');
end.
⇢