Логотип
Скачать .pas

var a, c1, c2, c3: integer;
s: string;
begin
write ('Введите a= ');
read (a);
if (a>=100) and (a<=999) then
begin
s:='Число a - трёхзначное';
writeln(s);
c1:=a div 100;
c2:=a div 10 mod 10;
c3:=a mod 10;
if (c1+c2+c3) mod 7=0 then writeln('Сумма цифр числа a кратна 7')
else writeln('Сумма цифр числа a не кратна 7');
exit;
end
else s:='Число a - не трёхзначное';
writeln(s);
end.