Среди четырёхзначных чисел найти все числа сумма цифр, которых кратно 3 и больше 15
Среди четырёхзначных чисел найти все числа сумма цифр, которых кратно 3 и больше 15
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы