Предмет: Информатика,
автор: Ruslanpr
Написать программы суммирования чисел от 1 до 100, используя все циклические конструкции (Repeat..Until, While..Do, For..to). Найти среднее арифметическое этих чисел.
alamar:
В одной прогаме нужно или можно использовать все циклы ?
Видимо можно.
Ответы
Автор ответа:
3
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.
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.
Интересные вопросы
Предмет: Русский язык,
автор: Нифи2005
Предмет: Английский язык,
автор: Dima3310
Предмет: Русский язык,
автор: 7встепени2017
Предмет: Русский язык,
автор: Kibbb
Предмет: Биология,
автор: Ysya0Vais