На вход программе подаётся непустая последовательность целых чисел оканчивающаяся отрицательным числом. Написать программу, которая подсчитает среднее арифметическое этих чисел. Последнее введённое число участвует в получении среднего арифметического. Точность выводимого числа не задаётся.
Входные данные
1 3 4 -1
Выходные данные
211
494
Ответы на вопрос:
sr = 0
a = 0
k = 0
while a >= 0:
a = int(input())
k += 1
sr += a
print(sr/k)
// pascalabc.net 3.0, сборка 1073 var a,b,c: integer; begin write('введи a,b,c: '); read(a,b,c); if (a=b) or (a=c) or (b=c) then writeln('есть пара одинаковых') else writeln('все числа различные') end. тестовое решение: введи a,b,c: 6 3 -12 все числа различные введи a,b,c: 5 -4 5 есть пара одинаковых // pascalabc.net 3.0, сборка 1073 var n: string; a,b: char; begin write('введи натуральное число n: '); readln(n); write('введи подряд пару разыскиваемых цифр: '); read(a,b); if pos(a,n)> 0 then writeln('в числе есть цифра '+a) else writeln('в числе цифры '+a+' нет'); if pos(b,n)> 0 then writeln('в числе есть цифра '+b) else writeln('в числе цифры '+b+' нет') end. тестовое решение: введи натуральное число n: 3141592653589793 введи подряд пару разыскиваемых цифр: 47 в числе есть цифра 4 в числе есть цифра 7 // pascalabc.net 3.0, сборка 1073 var i,n: integer; fiba,fibb,fib: longint; begin write('введи натуральное число (1-46): '); read(n); if n< 3 then writeln('число фибоначчи равно 1') else begin fiba: =1; fibb: =fiba; for i: =3 to n do begin fib: =fiba+fibb; fiba: =fibb; fibb: =fib end; writeln('число фибоначчи равно ',fib) end end. тестовое решение: введи натуральное число (1-46): 13 число фибоначчи равно 233
Популярно: Информатика
-
Dobrota201716.08.2020 20:39
-
Kiper22220.06.2022 15:26
-
влюбленыйотличник12.09.2021 11:42
-
feterina30.12.2021 21:34
-
ulyanagrab33310.03.2020 21:24
-
katerin806.05.2022 22:31
-
danilfkr02.11.2021 13:41
-
Dasha55555907.06.2020 19:25
-
sofiapel68p08lqa13.07.2020 21:52
-
КатяVL24.01.2020 12:50