Дано натуральное число, определить количество цифр кратных 3-ем и их сумму.Срочно !!
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=Abs(ReadInteger('n='));
var (k,s):=(0,0);
while n>0 do begin
var d:=n mod 10;
if d mod 3=0 then (k,s):=(k+1,s+d);
n:=n div 10
end;
Writeln('В числе ',k,' цифр, кратных 3. Их сумма равна ',s)
end.
Пример
n= 6035
В числе 3 цифр, кратных 3. Их сумма равна 9
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответыИнформатика, опубликовано 08.11.2018
В ячейку С6 записать формулу, которая выражение А4+А5-А6 делит на сумму чисел А7 и А8.
Информатика, опубликовано 08.11.2018
Напишите программу в паскале по этой блок-схеме. Умоляю
20 баллов
Информатика, опубликовано 08.11.2018
Сколько цифр 1 в двоичном представлении десятичного числа 12
Информатика, опубликовано 08.11.2018
Помогите пожалуйста очень очень надо плис как это сделать объясните