Программа:
program summa;
var a: integer;
begin
read(a);
a := a MOD 10;
write(a);
end.
Ответ на вопрос:
5
var a,b,c,d,e,f:integer;
begin
for a:=100 to 999 do begin
b:=a div 100;
c:=a mod 10;
d:=a mod 100;
e:=d div 10;
f:=c+b+e;
if (f mod 7=0) and (a mod 7=0) then
writeln(a,' ');
end;
end.
Вот держите.
Прикладываю скрин графика и файл таблиц.