Все
Математика
Алгебра
Геометрия
Литература
Русский язык
Истоки
Краеведение
Французский язык
Литературное чтение
Астрономия
Природоведение
Родной край
Немецкий язык
Технология
Физика
Английский язык
Обществознание
Химия
Биология
История
О`zbek tili
Окружающий мир
Естествознание
География
Украинский язык
Информатика
Украинская литература
Казахский язык
Физкультура и спорт
Экономика
Музыка
Право
Белорусский язык
МХК
Кубановедение
ОБЖ
Психология
Кыргыз тили
Другие предметы
Показать все предметы
Евстифей
10.04.2021, 19:53
Информатика

Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (Repeat..Until, While..Do, For..to).

Найти среднее арифметическое этих чисел.
Знаешь ответ?

Чтобы оставить ответ, или зарегистрируйтесь.

Ответ или решение 1
Назафа
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.