Дано натуральное число.Определить каких цифр в данном числе больше четных или нечетных.Через Паскаль
Ответы
Ответ дал:
0
var n:longint;
s:string;
i, ch, neCh:integer;
begin
readln(n);
s:=intToStr(n);
i:=1;
while (i <= length(s)) do
begin
if (strToInt(s[i]) mod 2 = 1) then neCh:=neCh+1
else ch:=ch+1;
i:=i+1;
end;
if (ch > neCh) then writeln('Чётных чисел больше');
if (ch < neCh) then writeln('Нечётных чисел больше');
if (ch = neCh) then writeln('Чётных и нечётных чисел поровну');
end.
s:string;
i, ch, neCh:integer;
begin
readln(n);
s:=intToStr(n);
i:=1;
while (i <= length(s)) do
begin
if (strToInt(s[i]) mod 2 = 1) then neCh:=neCh+1
else ch:=ch+1;
i:=i+1;
end;
if (ch > neCh) then writeln('Чётных чисел больше');
if (ch < neCh) then writeln('Нечётных чисел больше');
if (ch = neCh) then writeln('Чётных и нечётных чисел поровну');
end.
Ответ дал:
0
а можешь попроще решить while через
Ответ дал:
0
не вопрос
Ответ дал:
0
сделал
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад