1. С клавиатуры вводятся 5 чисел, напишите программу, которая выведет их сумму и среднее арифметическое.
2. Напишите программу, которая выводит кубы натуральных чисел от 0 до 10
Hung1337:
Язык?
Ответы
Ответ дал:
0
Надеюсь, что тебе нужно на паскале. Если нет, то пиши, я переделаю на любой другой.
Первая задача:
var digs:String;
sum, sr:Real;
i:Integer;
begin
writeln('Введите 5 чисел через пробел');
readln(digs);
digs := digs.Replace(' ', '');
sum := 0;
for i := 1 to 5 do
sum := sum + strToInt(digs[i]);
sr := sum / 5;
writeln('Сумма: ' + sum);
writeln('Сред. арифметическое: ' + sr);
end.
Ввод:
1 2 3 4 5
Вывод:
Сумма: 15
Сред. арифметическое: 3
Вторая задача:
var i:Integer;
begin
for i := 0 to 10 do
writeln(i + '^3=' + i**3);
end.
Вывод:
0^3=0
1^3=1
2^3=8
3^3=27
4^3=64
5^3=125
6^3=216
7^3=343
8^3=512
9^3=729
10^3=1000
Ответ дал:
0
Ответ:
Объяснение:
Во вложении
Приложения:
![](https://st.uroker.com/files/5e2/5e26566da250b9688019ddb2f9c4cb6e.jpg)
![](https://st.uroker.com/files/22b/22b12c7d412144d50f09526641b625b0.jpg)
Вас заинтересует
3 месяца назад
3 месяца назад
4 месяца назад
4 месяца назад
1 год назад
1 год назад
7 лет назад
7 лет назад