Регистрация
МЫСЛИТЕЛЬ512
15.03.2023 16:27
Информатика
Есть ответ 👍

Фактические параметры записываются в заголовке программы

108
344
Посмотреть ответы 1

Ответы на вопрос:

maksim93949262tue
maksim93949262tue
4,8(35 оценок)
  var s,n,i: integer; d,h: string;     begin  writeln('введите 4-х значное число');   readln(n);   d: = inttostr(n);   for i: =1 to 4 do begin  h: = d[i];   s: = s + strtoint(h);   end;   if (n mod 7 = 0) and (s mod 7= 0) then  writeln('число и сумма цифр делится на 7',n)  else  writeln('число и сумма цифр не делится на 7')   end.для проверки 71064

Популярно: Информатика