среди четырёхзначных чисел найти все числа сумма цифр, которых кратно 3 и больше 15
5-9 класс
|
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.
Другие вопросы из категории
Файл размером 4096 байт передаётся через некоторое соединение за 8 секунд. Определите время в секундах, за которое можно передать через то же самое соединение файл размером 8 Кбайт.
полных лет). В случае совпадения указанных месяцев считать, что прошел весь год. Паскаль.
htm, jpg, gif, swf
4) bmp, jpg, gif, com, flx
гипотенуза и катет прямоугольного треугольника.
Определить острые углы треугольника. Вывод ответа предусмотреть в градусах с точностью до двух знаков после запятой.
Задача 2. Дано пятизначное число из интервала [100000, 32767]. Найти суммы первой, третьей и пятой цифр этого числа
Зараннее сбасибо
Благодарю
Читайте также
Найти максимальное натуральное число меньше 5000, которое делится нацело на 39.
Задача 3: 1 марта в банк положили 1000 руб. Каждый месяц вклад увеличивается на 2% от имеющейся суммы.
а) за какой месяц величина процентной надбавки превысит 30 руб.?
б) через сколько месяцев размер вклада превысит 1200 руб.? Заранее спасибо)
Из чисел от 10 до 99 вывести те числа, сумма цифр которых равна 5(14,23, 32...)