Предмет: Информатика,
автор: juliabelyeva1
составьте программу вычисления суммы нечетных цифр натурального числа М(ПАСКАЛЬ АБЦ)
Ответы
Автор ответа:
0
var x,y:integer;
begin
read(x);//число
while(x <>0) do begin
if x mod 10 mod 2=1 then y:=y+x mod 10;
x:=x div 10;
end;
writeln(y);
end.
begin
read(x);//число
while(x <>0) do begin
if x mod 10 mod 2=1 then y:=y+x mod 10;
x:=x div 10;
end;
writeln(y);
end.
Похожие вопросы
Предмет: Информатика,
автор: liliya2422
Предмет: Информатика,
автор: hghghyuxcxc5656
Предмет: Русский язык,
автор: zarinycgorynyc
Предмет: Литература,
автор: promden