Что не делал тупо постоянній повтор и нечево больше. паскаль . цикл while. обчислити сумму чисел от заданного числа до 150. число ввести с консоли. если введение число> 150, вивести сообщение об ошибках, если < 150, обчислити сумму, если = 150 - вивести 150
Program n_1;
var x, y, i:integer;
begin
readln(x);
if (x<=150) then begin
y:=0; i:=150;
while (i>=x) do begin y:=y+i; i:=i-1; end;
writeln (y);
end
else writeln ('Ошибка')
end.