Что напечатает данная программа: Var x:=Integer Begin x:=2 WriteLn ('x+1=', x) End

Что напечатает следующая программа? 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);

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами 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);

Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...'); Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...

Что не так в программе, она должна узнать какое число больше? вот программа program primer; var a, b, с:integer; Begin readln (a, b, с); if a>b then writeln (a) else if b>c writeln (b) else if c>a writeln (c); end.