Напишите программу, которая запрашивает у пользователя 5 чисел. Выводит их на экран через запятую. Находит их сумму, произведение и среднее арифметическое на экран. Оформите ответ.
229
401
Ответы на вопрос:
Первая задача:
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
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
катя4673788931.07.2022 23:28
-
vikaovcerenko28.01.2023 10:30
-
Малия17222.11.2021 02:41
-
madina95318.05.2022 17:14
-
ДарьяМайер555414.09.2020 20:00
-
mixon205.04.2021 13:50
-
bedniyboyarin04.07.2021 00:22
-
Nekotin016.05.2023 11:24
-
sebtetfGек5у30.06.2022 08:42
-
sergijkorovonko12.05.2020 00:44
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.