Question

PascalABC 9 класс ХЕЛП МЕ Решить задания: 1. Запишите значение переменной S a:= 1 ; s:=0; while a< n do begin a:=a+1; s:=s+a; end; writeln ('сумма' п, натуральных чисел равна s=", s); 2. Запишите значение переменной S:=0; J:=10; WHILE J<>100 DO Begin s:=S+J; J:=J+1; End; 3. Запишите значение переменной S:=0; i:=0; while i<=6 do S:=S+i; i:=i+1; writeln('S=", S);

Answer 1

1) 0.

2) 4905.

3) 21.

                                                                 

Answer 2

Окей, давайте разберем каждое из заданий по очереди и запишем правильный код на языке PascalABC.

1. Запишите значение переменной S:

pascalCopy code
var
  a, n, s: integer;
begin
  a := 1;
  s := 0;
  write('Введите n: ');
  readln(n);
  
  while a < n do
  begin
    a := a + 1;
    s := s + a;
  end;
  
  writeln('Сумма натуральных чисел равна s=', s);
end.

2. Запишите значение переменной S:

pascalCopy code
var
  s, j: integer;
begin
  s := 0;
  j := 10;
  
  while j <> 100 do
  begin
    s := s + j;
    j := j + 1;
  end;
  
  writeln('Значение переменной S равно ', s);
end.

3. Запишите значение переменной S:

pascalCopy code
var
  s, i: integer;
begin
  s := 0;
  i := 0;
  
  while i <= 6 do
  begin
    s := s + i;
    i := i + 1;
  end;
  
  writeln('Значение переменной S равно ', s);
end.

Это исправленные версии кода для каждого из заданий. Убедитесь, что вы внимательно копируете код, чтобы избежать ошибок.