Составьте программу определения количества четных цифр в данном целом числе и вывода второй его цифры.
Ответы
Ответ дал:
1
var
N: integer;
s: string;
i,c: byte;
begin
ReadLn(N);
Str(N,s);
c:=0;
for i:=1 to Length(s) do
if s[i] in ['0','2','4','6','8'] then
Inc(c);
Writeln(s[2]);
WriteLn(c);
ReadLn
end.
asphyxik:
тут идет преобразование integer в string и просто число рассматривается как строка в которой идет проверка условия встречаются ли четные цифры и заводится счетчик
Похожие вопросы
1 год назад
7 лет назад
9 лет назад