Среди трехзначных чисел найдите те ,сумма первой и последней цифр которого равна 7.
Паскаль

1

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

2014-02-13T17:52:53+04:00
Program z;
var n,a,b,s:integer;
begin
s:=0;
for n:=1 to 999 do
begin
a:=n mod 10;
b:=(n div 100) mod 10;
if a+b=7 then s:=s+1;
end;
writeln(s);
end.