inainainainaina0073
?>

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

Информатика

Ответы

officem695

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

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.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Написать программу, которая вычисляет среднее арифметическое 3 целых чисел
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Serkova_Elena251
nzagrebin363
aksmobile
appbiznessm
zharovaleks
sochi-expert
манукян29
anna241273
gorsimonyan4
titovass9
parolmm
bhg50
djikia88
Андрей_Станиславовна
stepanova-natalie