Тест 4 информационные технологии

(Запишите правильный ответ) Какой будет результат при выполнении фрагмента программы:

procedure pr(x:integer; var y:real);

begin

y:=x*x+2;

end;

begin

r:=5;

pr(r, d);

writeln(‘d=’,d:6:2);

(Запишите правильный ответ) Что будет выведено на экран после выполнения фрагмента программы (a,b,c:integer) : a:=126; b:=1; c:=83;

writeln(a:3,b:3,c:3);

(Запишите правильный ответ) Определите какое значение будет иметь s в результате работы фрагмента программы:

s:=0;

x:= 0;

while x < 10 do

begin

s:=s+1;

x:=x+1;

end;

....