Найти значение переменной S при n=5, i=0. В ответе укажите число.

for i:=1 to n do

Begin

A[i]:=i;

S:S+A[i];

End

Последнее не спрашивайте я сам не понял!

Цикл с параметром и шагом - 1 объявляется с использованием конструкции a) for i:=i1 downto i2 do begin ... end; b) repeat begin ... end until (выражение_условие) ; c) for i:=i1 to i2 do begin ... end; d) if (выражение_условие) begin ...

Укажите области видимости в программе: Program P; Var x: integer; Procedure P1; Var y: integer; Begin P2; End; Procedure P2; Var z: integer; Begin {Тело процедуры} End; Procedure P3; Var m: integer; Begin P1; End; Begin {Тело основной программы}P3;

Сколько раз будет выполнен этот цикл? i:=2; while i

Исправить ошибки в паскале program exp3; const m=5; n=3; type matr = array [1 ... m, 1 ... n] of integer; var m: matr; b, i, j, k : integer; повторно объявленный идентификатор begin clrscr; randomize;

Uses crt; var n, s, s1, s2, k:integer; begin writeln ('Введите число: ') ; readln (n) ; s:=0; s1:=0; s2:=0; while n>0 do begin inc (k) ; if k mod 2 = 0 then begin s:=s+n mod 10; n:=n div 10; end else begin s1:=s1+n mod 10; n:=n div 10; end;