Составить программу . вводить последовательно пока средне арифметическое не будет равно10
Составить программу . вводить последовательно пока средне арифметическое не будет равно10
Гость
Ответ(ы) на вопрос:
Гостьprogram ex1;
var a,sum,k:integer;
sr:real
begin
do
begin
writeln("Введите число");
readln(a);
sum:=sum+a;
k:=k+1;
sr:=sum/k;
end;
while (sr<>10);
writrln("Программа выполнено успешно!");
end.
Не нашли ответ?
Похожие вопросы