1. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=10;
for i:=1 to 3 do begin
a:=a-3;
end;
2. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=10;
for i:=0 to 4 do begin
a:=a-i;
end;
3. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=2;
for i:=0 to 4 do begin
a:=a+i;
end;
4. Чему будет равно значение целой переменной a после выполнения этого фрагмента программы?
a:=3;
for i:=1 to 4 do begin
a:=a+a;
end;
5. Определите, что будет напечатано в результате работы следующей программы.
var s, k:integer;
begin
s:= 0;
for k:= 4 to 11 do
s:= s + k;
writeln (s);
end.
6. Определите, что будет напечатано в результате работы следующей программы.
Var s,і:integer;
Begin
s:= 3;
For і:= 2 to 5 do
s:= s + 2*і;
Writeln(s);
End.
7. Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(1);
for i:=3 to 4 do
write(i);