Ответы на вопрос:
var
a, b, c: integer;
s: real;
begin
writeln('Введите три числа');
readln(a);
readln(b);
readln(c);
s := (a + b + c) / 3;
writeln('Среднее арифметическое трех введенных чисел равно ', s);
end.
Популярно: Информатика
-
demkainka18.01.2020 06:56
-
mavlud11128.08.2021 17:19
-
adelya60607.11.2020 11:08
-
romannikodov26.06.2021 10:17
-
Nyushata09.09.2020 02:56
-
mc958426.05.2023 11:02
-
пожирательзнаний120.11.2020 06:25
-
РУСЛАН11322804.06.2021 09:24
-
liana510127.03.2021 18:16
-
supercrud08.08.2020 10:05