Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
damilya12sladcoeshka
10.08.2020 00:55 •
Информатика
Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (repeat..until, while..do, for..to). найти среднее арифметическое этих чисел.
Показать ответ
Ответ:
надечка2005
21.07.2020 12:27
Var sum,i:integer;
sa:real;
begin
i:=0;
sum:=0;
for i:=1 to 100 do
sum:=sum+i;
writeln(sum);
sa:=sum/i;
writeln(sa:1:2);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dpoarkov56
12.08.2021 08:40
1. что такое компьютерный вирус ? а) это программы, активизация которых вызывает уничтожение программ и файлов; б) это совокупность программ, находящиеся на устройствах долговременной...
2727472927у
25.02.2021 08:35
Вариант 2 Соедините последовательно точки к заврашнему дню...
cetpersik
22.06.2022 09:07
Письмово в зошиті дайте відповіді на запитання: 1.Яка величина називається змінною?2.Яка величина називається сталою?3.Чим характеризується кожна величина?4.Який загальний вигляд...
Vnychka3
23.07.2020 01:33
Спо желательно на фото чтобы я видела как записать! перевести скорость 72км/ч в м/c...
mixa152rus
23.07.2020 01:33
Написать на казахском языке чудесное наследие кочевников...
робингуд228
23.07.2020 01:33
Решите уравнение: (8x+1)+(3x-4)=(5x-4)+(9x+3) (3x-11)+(8-12x)=(5x--7)...
Топовый1112
18.05.2023 19:49
Сравни уравниния. 24x=288 24x+96=288 24x-92=288...
cuperkissers20
18.05.2023 19:49
Периметр прямоугольника 80 см. чему равны длина и ширина прямоугольника, если ширина в 4 раза меньше длины...
Limon2601
18.05.2023 19:49
Небольшой текст про осень 5-6 предл...
Love2111
18.05.2023 19:49
Составьте небольшой доклад на тему ,, вокальная и инструментальная музыка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sa:real;
begin
i:=0;
sum:=0;
for i:=1 to 100 do
sum:=sum+i;
writeln(sum);
sa:=sum/i;
writeln(sa:1:2);
end.