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

Question

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

Алина Зуйкова Ученик (160), открыт 2 недели назад

Написать программу на паскаль, вычисляющую сумму ряда
S = 10+11+12+…+n, при условии, что переменная n задается пользователем с клавиатуры (использовать оператор цикла while
условие do оператор)

Answer 1

Tek 131432 Профи (807) 2 недели назад

maskal

Answer 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.

Answer 3

На*уй вообще преподают паскаль в школе, им уже как лет 10-20 не пользуются

Answer 4

 program sum_series;  
var  
  n : integer;  
begin  
  readln(n);  
  while true do 
  begin 
    writeln((n * n + n - 90) div 2);   
    break;  
  end; 
end.