Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (Repeat..Until, While..Do, For..to). Найти среднее арифметическое этих чисел.
Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (Repeat..Until, While..Do, For..to). Найти среднее арифметическое этих чисел.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы