3582322301

Nazwisko:

Imię:

Uwaga w całym tekście dla uproszczenia notacji zakładamy istnienie poniższych deklaracji typów oraz zmiennych globalnych: type

wylicz = (pn, wt, sr, czw, pt, so, nie); tablica = array [1..10] of integer; var

il, i2: integer;    rl, r2: real;    bl, b2: boolean; wrl,wr2:

^Areal;

^^^^1^2M|jhar^^^^^wil^wi2^integer^wl^fy2rj|j2Ucz^^^^l^2^ąblica^^^^

Co wypiszą na ekranie poniższe fragmenty programów ?

Każda poprawna odpowiedź 2punkty, brak odpowiedzi 0 punktów, odpowiedź błędna -2 punkty.

procedurę p(n: integer); begin if n div 8 <> 0 then p(n div 8); write(n mod 8) end; begin il := 139; P(il) end.	function f(n, k; integer): integer; begin if k = 0 then f := 0 else if k = 1 then f := n mod 10 else f := f(n div 10, k-1) end; begin write(f(28459,3)) end.	function f(var w:wylicz):integer; var tmp: integer; begin tmp := (ord(w)+3) mod 2; w := suce (w); f := tmp; end; begin wl := czw; il := f(wl); writelnfil:', il, VI', ord(wl)); end.
		il:	wl:

for il := 1 to 10 do write('", il mod 3 +1);	cl :=•*'; for il := 1 to 3 do write(cl:il);	il := 2 OR 5; i2:=3ANDll; writeln('suma:’, il+i2);

Jak zapisać warunek: A jest większe niż B i conajmniej jedna z tych liczb jest ujemna.	Podaj wartość wyrażenia: round(99.5)+10 * 10+5/2	Sprawdź, czy poniższy ciąg jest kopcem a* = [67,6,18,94,42,12,55,44]

W poniższym teście poprawne odpowiedzi proszę zaznaczyć znakiem niepoprawne znakiem Każda poprawnaafyowiBdi = +1, brak odpowiedzi = 0, mepoprawm odpowiedź = -1_

il := 2 * il;	il := wil^A;	write(ord(r 1));	wl := il;	read(wrl);
rl :=rl *rl;	il :=rl;	write(ord(wl));	il :=ord(wl);	read(wrl^A);
il :=rl * il;	wil^A := rl;	write(ord(bl));	wl :=ord(il);	read(bl);
rl :=rl * il;	wrl^A := il;	write(bl);	write(wl);	tl[2] := wil^A;
il := sqr(il);	cl :=ehr(rl);	write(tl[2]);	write(ord(wl);	tl [2] := wrl^A;
rl:=sqrt(wrl^A);	rl := ord(il);	write(tl);	bl:=ord(pn),	tl [7]:=ord(bl),