Дано натуральное число n. Составить алгоритм нахождение произведения четных цифр в записи данного числа.
Ответы
Ответ дал:
0
var
n:longint;
k,sum:integer;
begin
write ('N = ');
readln(n);
k:=0;
sum:=0;
while n <> 0 do
begin
if (n mod 10) mod 2 = 0 then
begin
k:=k+1;
sum:=sum+(n mod 10);
end;
n:=n div 10;
end;
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',k);
readln;
end.
n:longint;
k,sum:integer;
begin
write ('N = ');
readln(n);
k:=0;
sum:=0;
while n <> 0 do
begin
if (n mod 10) mod 2 = 0 then
begin
k:=k+1;
sum:=sum+(n mod 10);
end;
n:=n div 10;
end;
writeln ('Summa: ',sum);
writeln ('Kol-vo: ',k);
readln;
end.
Вас заинтересует
4 месяца назад
11 месяцев назад
11 месяцев назад
2 года назад
2 года назад
7 лет назад