Составьте программу для вычисления произведения целых чисел, их среднее арифметическое до тех пор пока не будет введён 0

Используя цикл repeat

Question

Информатика

Епистимия

26 октября, 06:05

Составьте программу для вычисления произведения целых чисел, их среднее арифметическое до тех пор пока не будет введён 0

Используя цикл repeat

+2

Ответы (1)

Знаете ответ на вопрос?

Дарюха · Answer 1

Var

A, S, P:real;

k:integer;

Begin

S:=0;

P:=1;

k:=-1;

Repeat

Read (A) ;

if A 0 then P:=P*A;

S:=S+A;

k:=k+1;

Until A = 0;

WriteLn ('P = ', P) ;

WriteLn ('Sr = ', S/k) ;

ReadLn

End.

Составьте программу для вычисления произведения целых чисел, их среднее арифметическое до тех пор пока не будет введён 0Используя цикл repeat

Составьте программу для вычисления произведения целых чисел, их среднее арифметическое до тех пор пока не будет введён 0

Используя цикл repeat