Регистрация
xxxromsavxxx
01.01.2022 19:48
Информатика
Есть ответ 👍

Склавиатуры вводится 20 целых чисел.найти сумму и произведение нечётных и отрицательных

262
486
Посмотреть ответы 2

Ответы на вопрос:

алекс756
алекс756
4,5(87 оценок)
Var i,n,sum,summ: integer; begin summ: =1; for i: =1 to 20 do begin writeln('введите ',i,' число'); readln(n); if (n mod 2< > 0) and (n< 0) then begin inc(sum,n); summ: =summ*n; end; end; writeln('сумма: ',sum); writeln('произведение: ',summ); end.
SvetaX16X
SvetaX16X
4,4(96 оценок)

a : = 175 div 100 = 1

b : = 175 mod 100 = 75

c : = 175 mod 10 = 5

s : = 1 + 75 + 5 = 81

Популярно: Информатика