Вопрос по информатике:
Сделать программу в паскале.
Складіть программу за якою числа вводятся з клавіатури до тих пір, поки конистувач не веде число 0. Серед цих чисел підрахувати додатні і від'ємні. робити через while
Пожаловаться
- 18.10.2017 04:44
- Информатика
- remove_red_eye 2563
- thumb_up 49
Ответы и объяснения 1
Var
A,p,o,n:integer;
Begin
Read(A);
While A0 do
Begin
if A > 0 then p:=p+1
else o:=o+1;
Read(A);
End;
WriteLn('Количество положительных (>0): ',p);
WriteLn('Количество отрицательных (<0): ',o);
End.
Пример работы программы:
1
2
3
-4
-5
0
Количество положительных (>0): 3
Количество отрицательных (<0): 2
A,p,o,n:integer;
Begin
Read(A);
While A0 do
Begin
if A > 0 then p:=p+1
else o:=o+1;
Read(A);
End;
WriteLn('Количество положительных (>0): ',p);
WriteLn('Количество отрицательных (<0): ',o);
End.
Пример работы программы:
1
2
3
-4
-5
0
Количество положительных (>0): 3
Количество отрицательных (<0): 2
Пожаловаться
- 19.10.2017 22:03
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы