Учеба и наука
Закрыт
Задача в PasclaABC. - вопрос №887132
Написать программу, которая вычисляет количество положительных и отрицательных значений во введенной последовательности чисел. Ввод прекращается, когда вносится нулевое значение.
декабрь 25, 2013 г.
-
Всего ответов: 1
-
var P, M: integer, x: real;
begin
uses crt; clrscr;
x := 1; P := 0; M := 0;
while x <> 0 do
begin
write ('Vvedite chislo: '); readln (x);
if x > 0 then P := P + 1;
if x < 0 then M := M + 1;
end;
writeln ('Pologitelnih chisel: ', P, 'Otricatelnih chisel: ', M);
end.
Похожие вопросы
Решено
В некоторой стране автомобильный номер длиной 6 символов составляется из заглавных букв
сентябрь 19, 2013 г.
Учеба и наука