Question

​(По желанию)​Написать программу на языке Pascal для решения одной задачи на выбор:- на отметку  "4"   Организовать  горизонтальный  числовой  ряд 1 2 3 4 5 ….10; - на отметку "5"    Найти сумму ряда S = 15+16+17+...+n.      Сразу две надо даю 50 баллов я.п паскаль а не питон​

Answer 1

Ответ:

2 задача:

var i,n,s:integer;

begin

read(n);

s:=0;

for i:=15 to n do begin

  s+=i;

end;

print(s);

end.

1 задача:

var i:integer;

begin

for i:=1 to 10 do begin

  print(i);

end;

end.

Объяснение:

нужны пояснения - скажи

Answer 2

Конечно, вот программы на языке Pascal для решения обеих задач:

1. Горизонтальный числовой ряд от 1 до 10:

pascalCopy code
program HorizontalNumberSeries;
var
  i: integer;
begin
  for i := 1 to 10 do
    write(i, ' ');
  writeln;
end.

2. Нахождение суммы ряда S = 15+16+17+...+n:

pascalCopy code
program SumOfSeries;
var
  n, i, sum: integer;
begin
  write('Введите значение n: ');
  readln(n);
  
  sum := 0;
  
  for i := 15 to n do
    sum := sum + i;
  
  writeln('Сумма ряда S = ', sum);
end.

Вы можете скомпилировать и запустить эти программы на своем компьютере, чтобы получить результаты.