Найти среднее арифметическое всех целых чисел в промежутке от 1 до 100
VAR i,s:integer;
Begin
for i:= 1 to 100 do
s:= s+ i;
writeln(s/100);
End.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
VAR i,s:integer;
Begin
for i:= 1 to 100 do
s:= s+ i;
writeln(s/100);
End.