Топ дня: Drages

друзья решите задачку 'Дано натуральное число. Найти сумму его цифр кратных 3-м'

ап

:D

Чего???

Нифего

Оффтоп неуместен

ап где вы кодыри????

мб
var n, sum, mult: integer;
begin
write('Enter number: ');
readln(n);
sum := 0;
mult := 1;
while n > 0 do begin
sum := sum + n mod 10;
mult := mult * (n mod 10);
n := n div 10
end;
writeln('Sum of digits = ', sum);
writeln('Multiplication of digits = ', mult);
readln
end.

program m;
var
i,sum:longint;
s:string;

function StrToInt(Value: string): integer;
var
code, i: integer;
begin
VAL(Value, i, code);
if code = 0 then
StrToInt:=i;
end;

begin
read(s);
sum :=0;

for i := 1 to length(s) do
sum := sum + StrToInt(s);

writeln('Сумма чисел: ',sum);
readln;
end.

не то(( ну спс