Вычислить сумму цифр четырехзначного числа, которые кратны 3
паскаль
Нет комментариев
Ответы
Гость Может быть 8?.........
1 комментария:
нет 3
нет 3
Гость Const l=4;
var n,s: integer; i: byte;
begin
write ('Введите 4-значное число: ');
readln (n);
for i:=1 to l do begin
if (n mod 10) mod 3 =0
then s:=s+(n mod 10);
n:=n div 10;
end;
writeln;
writeln ('Сумма цифр, кратных 3 = ',S)
end.
------------------------------
Пример:
Введите число: 3456
Сумма цифр, кратных 3 = 9
Нет комментариев
Похожие вопросы
Информатика
В ОДНОМЕРНОМ МАССИВЕ ИЗ 10 ЭЛЕМЕНТОВ ПОСЧИТАТЬ КОЛИЧЕСТВО ЧЕТНЫХ ЧИСЕЛ И ПРОИЗВЕДЕНИЕ НЕЧЕТНЫХ...
Информатика
Информатика нужно соединить точки пж...
Информатика
"в каких профессиях и как помогает компьютер"...
Список предметов
