Найти сумму чисел ряда 1,2,3,... ,используя функцию.
Program Summa;
uses crt;
var n:integer;
function Sum(m: integer): integer;
var i,s: integer;
begin
s:=0;
for i:=1 to m do s:=s+i;
Sum:=s
end;
Begin
clrscr;
write('До какого числа суммировать? :'); readln(n);
write('Сумма чисел ряда S=',Sum(n)) { -вызов функции Sum с парам.}
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить программу так, чтобы была найдена сумма чисел от m до числа n, вводимых с
клавиатуры.
Задание с функции НУЖНО
207
263
Ответы на вопрос:
Популярно: Информатика
-
kozlovavika20004.09.2020 22:36
-
abdigalikova170805.05.2020 20:13
-
george3916.12.2021 07:28
-
homie5119.12.2022 07:19
-
hehdsfg113.02.2023 18:14
-
Eennoottt10.02.2023 23:53
-
Алёнаум114.03.2023 09:37
-
artamasvan02.08.2022 16:07
-
astashkin22230.04.2020 07:11
-
pliza170625.02.2023 01:01