Подсчитать количество вводимых положительных и отрицательных чисел. Операцию ввода повторить 12 раз. turbo poscal
Ответы
Ответ дал:
0
var pc, oc, x, i : longint;
begin
oc := 0; pc := 0;
for i := 1 to 12 do begin
readln(x);
if (x < 0) then oc := oc + 1
else pc := pc + 1;
end;
writeln('Положительные:'); writeln(pc); writeln('Отрицательные:'); writeln(oc);
readln(x);
end.
P.S. 0 считается положительным в этой программе
begin
oc := 0; pc := 0;
for i := 1 to 12 do begin
readln(x);
if (x < 0) then oc := oc + 1
else pc := pc + 1;
end;
writeln('Положительные:'); writeln(pc); writeln('Отрицательные:'); writeln(oc);
readln(x);
end.
P.S. 0 считается положительным в этой программе
Ответ дал:
0
Отвечая школьникам на подобные вопросы можно не только позабыть C++, но и выучить паскаль....
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад