Определить какое значение будет принимать переменная y после выполнения фрагментов

программы

Var x, y:integer;

Begin

y:=0; x:=10

While x>0 do begin

x:=x-2;

y:=y+x

end;

Writeln ('y=', y)

end.

подробно плииз до завтра

Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;

Определить значение переменной у после выполнения следующих фрагментов программы: a) Var у : real; i : integer; у : = 1; i : = 5; while i> 2 do i: = i - 1; y:=y + 1 * i; b) Var у : real; i : integer; у : = 1; i : = 2; repeat i: = 2 * i;

Укажите области видимости в программе: 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;

1. Определить значение переменной у после выполнения следующих фрагментов программы: a) у : = 1; for i : = 1 to 5 do begin у : = у + 1; у : = у + i; end; b) y : = 0; for k : = 2 to 6 do у : = у + k; c) у : = 1; for k : = 3 to 5 do у : = у * k;

Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;