Вопрос по информатике:
Срочно!!!25б. Напишите, пожалуйста, программу(паскаль).Условие: Ввести N любых чисел. Вычислить P,S,K и выдать на экран (P-произведение отрицательных чисел, S-сумма положительных чис., K-количество отрицат. чисел)
Пожаловаться
- 24.06.2018 02:59
- Информатика
- remove_red_eye 14745
- thumb_up 28
Ответы и объяснения 1
Var
N,K,A:integer;
S,P:real;
Begin
Write('N = ');ReadLn(N);
K:=0;
P:=1;
For N:= 1 to N do
Begin
Read(A);
if A < 0 then
Begin
P:=P*A;
K:=K+1
End
else if A > 0 then S:=S+A;
End;
WriteLn('S = ',S);
WriteLn('P = ',P);
WriteLn('K = ',K);
End.
N,K,A:integer;
S,P:real;
Begin
Write('N = ');ReadLn(N);
K:=0;
P:=1;
For N:= 1 to N do
Begin
Read(A);
if A < 0 then
Begin
P:=P*A;
K:=K+1
End
else if A > 0 then S:=S+A;
End;
WriteLn('S = ',S);
WriteLn('P = ',P);
WriteLn('K = ',K);
End.
Пожаловаться
- 25.06.2018 15:03
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы