Какое значение будет принимать переменная Y после выполнения программы: var x, y : integer; begin y: = 0; for x: = 10 downto 5 do y: = y + x; writeln ('y = ', y); end.

1. Чему будет равна переменная "c" после выполнения этой программы: a : = 28; b : = 7; b : = a div b + b; c : = a mod b + a; Ответ: 2. Чему будет равна переменная "c" после выполнения этой программы: a : = 26; b : = 6; c : = a mod b + b; Ответ: 3.

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

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

Program n_1; Var a, b, x, y: real; Begin Writeln ('Введите a') readln (x); Writeln ('Введите b') readln (b); y:=3*x*x+x-4; While x