Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Программа в Pascal, 8 класс

Алина Зуйкова Ученик (163), на голосовании 1 месяц назад
Написать программу на паскаль, вычисляющую сумму ряда
S = 10+11+12+…+n, при условии, что переменная n задается пользователем с клавиатуры (использовать оператор цикла while
условие do оператор)
Голосование за лучший ответ
Улик Додиков Искусственный Интеллект (111384) 2 месяца назад
 
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.
Матвей Петров Профи (978) 2 месяца назад
На*уй вообще преподают паскаль в школе, им уже как лет 10-20 не пользуются
Леонид ПетровМастер (2085) 2 месяца назад
факты
Лев Михайлов Гуру (3433) 2 месяца назад
 program sum_series;  
var
n : integer;
begin
readln(n);
while true do
begin
writeln((n * n + n - 90) div 2);
break;
end;
end.
Похожие вопросы