Написать программу,которая вычисляет среднее арифметическое 3 целых чисел

DrNick DrNick    3   09.02.2021 20:48    1

Ответы
arshon1 arshon1  11.03.2021 20:49

Листинг программы с решением:

var a,i:integer;

s:real;

begin

 for i:=1 to 3 do begin

writeln ('Введите число:');

readln (a);

s:=s+a;

end;

s:=s/3;

writeln(s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика