Определить есть ли в данном числе четные цифры и на какой позиции они стоят. Паскаль. С использованием while.
Ответы
Ответ дал:
0
var
s:string;
i:integer;
begin
readln(s);
i:=1;
while(i<=length(s)) do
begin
if((StrToInt(s[i])mod 2)=0) then write(i,' ');
end;
end.
s:string;
i:integer;
begin
readln(s);
i:=1;
while(i<=length(s)) do
begin
if((StrToInt(s[i])mod 2)=0) then write(i,' ');
end;
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад