Знайти добуток всіх натуральних чисел від 2
до 21, кратних 3. (лазарус) : ((

238

402

Посмотреть ответы 1

Ответы на вопрос:

zoltomon

Информатика

4,4(23 оценок)

// 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