Вопрос по информатике:
Пожалуйста сделайте блок-схему по задаче
Среди 3 введенных чисел посчитать количество положительных
Пожаловаться
- 02.05.2018 14:00
- Информатика
- remove_red_eye 15230
- thumb_up 23
Ответы и объяснения 1
Var
a,s,k:integer;
p : longint;
begin
k := 0;
s := 0;
p := 1;
repeat
write('введите число: ');
readln(a);
if a < 0 then
begin
inc(k);
p := p * a
end;
if a > 0 then s := s + a
until a = 0;
writeln('сумма положительных: ', s);
if k = 0 then writeln('отрицательных чисел нет')
else writeln('произведение отрицательных: ', p);
readln
end.
a,s,k:integer;
p : longint;
begin
k := 0;
s := 0;
p := 1;
repeat
write('введите число: ');
readln(a);
if a < 0 then
begin
inc(k);
p := p * a
end;
if a > 0 then s := s + a
until a = 0;
writeln('сумма положительных: ', s);
if k = 0 then writeln('отрицательных чисел нет')
else writeln('произведение отрицательных: ', p);
readln
end.
Пожаловаться
- 03.05.2018 17:30
- thumb_up 11
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы