1. Определите значение переменной a после выполнения фрагмента программы:
a := 10;
if a > 5 then a := a + 12
else a := a - 7;
if a > 5 then a := a + 12
else a := a - 7;
2. Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 2 раза?
i:=1;
while i<=... do begin
writeln('Привет!');
i:=i+1
end;
3. Какое число будет выведено на экран в результате выполнения этого цикла?
i:=5;
write('9');
while i<5 do begin
write(i);
i:=i+1
end;
4. Какое число будет выведено на экран после выполнения этого фрагмента программы?
for i:=2 downto 0 do write(i);
5. Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(1);
for i:=3 to 4 do write(i);
6. Определите, что будет напечатано в результате работы следующей программы.
var s, k:integer;
begin
s:= 0;
for k:= 4 to 11 do
s:= s + k;
write(s);
end.
7. Определите, что будет напечатано в результате работы следующей программы.
var s, k:integer;
begin
s:= 0;
for k:= 4 to 11 do begin
s:= s + k;
write(s);
end;
end.
Answers & Comments
Ответ:
1. 34
2. 2
3. 9
4. 210
5. 134
6. 60
7. 49152230394960