среди четырёхзначных чисел найти все числа сумма цифр, которых кратно 3 и больше 15

Question

Информатика

Горислава

1 февраля, 22:36

среди четырёхзначных чисел найти все числа сумма цифр, которых кратно 3 и больше 15

+1

Ответы (1)

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

Торя · Answer 1

uses crt;

var i, s:integer;

begin

for i:=1000 to 9999 do

begin

s:=strtoint (inttostr (i) [1]) + strtoint (inttostr (i) [2]) + strtoint (inttostr (i) [3]) + strtoint (inttostr (i) [4]) ;

if (s>15) and (s mod 3=0) then

write (i,' ') ;

end;

end.