Программа в Pascal, 8 класс
Написать программу на паскаль, вычисляющую сумму ряда
S = 10+11+12+…+n, при условии, что переменная n задается пользователем с клавиатуры (использовать оператор цикла while
условие do оператор)
По дате
По рейтингу
1234567891011
program sum_series;
var
n : integer;
begin
readln(n);
while true do
begin
writeln((n * n + n - 90) div 2);
break;
end;
end. На*уй вообще преподают паскаль в школе, им уже как лет 10-20 не пользуются
факты
12345678910111213141516
program sum_series;
var
n, sum, i: integer;
begin
sum := 0;
i := 10;
readln(n);
while i <= n do
begin
sum := sum + i;
i := i + 1;
end;
writeln(sum);
end.
maskal
Видео по теме