Информатика: Найти сумму и произведение 4 чисел ведённых с клавиатуры

krisvll

09.10.2020 23:25

Информатика

Есть ответ 👍

Найти сумму и произведение 4 чисел ведённых с клавиатуры

100

151

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

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

sir58k

Информатика

4,8(62 оценок)

{найти сумму и произведение 4 чисел ведённых с клавиатуры }var i, n: integer; s, p, num: real; begin n : = 4; p : = 1; for i : = 1 to n do begin read(num); s : = s + num; p : = p * num; end; writeln(s,' ', p); end.