С клавиатуры вводятся числа (положительные и отрицательные). Ввод чисел заканчивается нулем. Найти количество четных положительных и нечетных отрицательных. Вывести каких больше
(НА ПАСКАЛЕ)
Ответы
Ответ дал:
1
program ch;
uses
crt;
var
k, cp, no: integer;
begin
k := 1;
cp := 0;
no := 0;
while k <> 0 do
begin
readln(k);
if ((k < 0) and (k mod 2 <> 0)) then
no := no + 1 ;
if ((k > 0) and (k mod 2 = 0)) then
cp := cp + 1 ;
end;
if no > cp then
writeln('Больше нечетных отрицательных') ;
if no < cp then
writeln('Больше четных положительных') ;
if no = cp then
writeln('Количество четных положительных равно количеству нечетных отрицательных') ;
readln;
end.
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад