Определите результат работы программы, записанной на языке Паскаль. a) program а5; var i, m: integer; begin m:=0; for i:=l to 6 do m: = m-6; writeln (m); end. m i i

Что напечатает следующая программа? program p3; var x, y:integer; procedure p1 (var a, b:integer); begin a:=sqr (a); b:=sqr (a) + a; end; procedure p2 (a, b:integer); begin a:=sqr (a); b:=sqr (b) + b; end; begin x:=2; y:=2; p1 (x, y);

6) Определите, что будет напечатано в результате работы следующего фрагмента программы: var n, s: integer; begin s : = 0; for n:=4 to 13 do begin s : = s + 15; end; write (s) end.

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m'); readln (c, m); s:=c*m; writeln ('s=', s); readln; end.

Program Example2; var Rand: array[1 ... 20] of integer; I, X, NumberX:integer, beginRandomize; writeln ('Masiv slychainix chisel') for I:=1 to 20 dobeginRand[I]:random (50); write (Rand[I]:4) end; writeln; write ('Vvedite X:')); readln (X);

Дана программа на языке Паскаль: program а4; var х, kl, k2: integer; begin k1:-0; k2:=0; repeat writeln ('Введите целое число'); readln (x); if x0 then k2:-k2+1; until x=0; writeln (' k1=', k1, ",' k2=', k2) end.