Найти все четырехзначные числа, которые при делении на 3 дают остаток 1, при делении на 4 - остаток 2, а сумма их цифр равна А. (А-вводится с клавиатуры)

Question

Информатика

Дигна

10 ноября, 08:49

Найти все четырехзначные числа, которые при делении на 3 дают остаток 1, при делении на 4 - остаток 2, а сумма их цифр равна А. (А-вводится с клавиатуры)

+5

Ответы (1)

Знаете ответ на вопрос?

Таша · Answer 1

Function summ (a:integer) : integer;

begin

while (a0) do begin

summ+=a mod 10;

a:=a div 10;

end;

end;

var i, a:integer;

begin

read (a) ;

for i:=1000 to 9999 do

if (i mod 3 = 1) and (i mod 4 = 2) and (a=summ (i)) then writeln (i) ;

end.