Напишите программу, которая будет подсчитывать количество отрицательных и положительных введённых чисел с клавиатуры, подсчёт вести до тех пор пока не будет введён 0
yaroslavaaf
3
17.04.2019 11:48
0
Другие вопросы по теме Информатика
алалайла
24.05.2019 16:30
kurtsmolovp00xqx
24.05.2019 16:30
bogdanzdebskiy
24.05.2019 16:30
yzenik2
18.06.2019 12:20
Dispensable
18.06.2019 12:20
nika0483
11.11.2020 14:01
AmaliyaLife
11.11.2020 14:01
Sveta11111111Love
11.11.2020 14:01
AkinFly
13.09.2021 23:00
Популярные вопросы
- ть будь ласка, крім 13, буду дуже вдячна...
1 - На тіло масою 2кг протягом 10 с діє сила 1H. Яка швидкість тіла і який шлях...
2 - Глюкозу масою 400г, в якій вміст нецукристих домішок становив 10%, піддали...
3 - Велосипедист ехал 10 часов со скоростью 14,45 км/ч. Найдите расстояние, которое...
2 - Задание по математике на тему Действие над комплексными числами...
2 - Із прямо в скелі заввишки 20 м у море горизонтальна скинул камінь .Скільки...
3 - Доведіть що центр кола яке дотикається до сторін кута належить бісектрисі...
2 - Y2-9y+14 знайти пiдбором коренi рiвняння...
1 - Літак летить горизонтально зі швидкістю 720 км /год на висоті 245 м.Коли...
2 - Точка движется равномерно и прямолинейно-противоположно положительному направлению...
2
Var a, k, n:integer;
Begin
Write ('Вводите числа') ;
K:=0;n:=0;
Read(a) ;
While a<>0 do begin
If a>0 then k:=k+1;
If a<0 then n:=n+1;
Read(a) ;
End;
Writeln('Положительных ', k) ;
Writeln('Отрицательных ', n) ;
End.