Предмет: Информатика,
автор: vhsvht
напишите программу вычисляющую среднее арифметическое пяти чисел фри паскал
Ответы
Автор ответа:
4
Ответ:
var
a,b,c,g,n: real;
begin
write('Введите число a = ');
readln(a);
write('Введите число b = ');
readln(b);
write('Введите число c = ');
readln(c);
write('Введите число g = ');
readln(g);
write('Введите число n = ');
readln(n);
Writeln('Среднее арифметическое = ',(a+b+c+g+n)/5);
end.
Автор ответа:
2
var s,a,i: integer;
begin
s:=0;
for i:=1 to 5 do begin
write('введите ',i,' число: ');
readln(a);
s:=s+a;
end;
write('срзнач: ',s/5);
end.
Интересные вопросы
Предмет: История,
автор: vitosmavrodin65
Предмет: География,
автор: cofiatishkovets
Предмет: Қазақ тiлi,
автор: ArminArlert2006
Предмет: Математика,
автор: малыш97
Предмет: География,
автор: Разноглазик