Предмет: Информатика,
автор: Xoma112
ПАСКАЛЬ, ИНФОРМАТИКА. п о м о г и т е
Дано натуральное число. Найти количество нечетных цифр в нем.
Ответы
Автор ответа:
0
uses Crt;
var n: longint;
i, Col: integer;
S: string;
begin
ClrScr;
Write (' n= '); ReadLn (n);
Str (n, S);
Col:=0;
for i:=1 to length (S) do
if (S[i]='1') or (S[i]='3') or (S[i]='5') or (S[i]='7') or (S[i]='9') then
Col:=Col+1;
WriteLn(' Col = ', Col) ;
ReadLn;
end.
var n: longint;
i, Col: integer;
S: string;
begin
ClrScr;
Write (' n= '); ReadLn (n);
Str (n, S);
Col:=0;
for i:=1 to length (S) do
if (S[i]='1') or (S[i]='3') or (S[i]='5') or (S[i]='7') or (S[i]='9') then
Col:=Col+1;
WriteLn(' Col = ', Col) ;
ReadLn;
end.
Похожие вопросы
Предмет: Литература,
автор: Аноним
Предмет: География,
автор: kotikdaschunya
Предмет: Математика,
автор: Аноним
Предмет: Биология,
автор: Dreamboat