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

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

Question

Информатика

Геря

24 декабря, 06:04

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

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

+5

Ответы (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