1) Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(1);
for i:=2 to 3 do цикл будет работать ровно 2 раза
write(i); тут получается с начала выведется число 2 потом 3
ответ 3
2) Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=2;
for i:=0 to 2 do Цикл будет работать 3 раза
begin
a:=a+i 2+0=2 2+1=3 3+2=5
end;
ответ 5
3) Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=10;
for i:=1 to 3 do Цикл будет работать 3 раза
begin
a:=a-1 10-1=9 9-2=7 7-3=4
end;
ответ 4
Объяснение:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
uses GraphABC;
type point=record
x,y:integer;
end;
procedure plitk(x,y,r:integer);
var p:array[1..9]of point;
a,da:real;
i:byte;
begin
a:=pi/2;
da:=pi/4;
for i:=1 to 9 do
begin
p[i].x:=x+round(r*cos(a));
p[i].y:=y-round(r*sin(a));
a:=a+da;
end;
polygon(p,9);
end;
var r,i,j,x,y,d:integer;
begin
r:=20;
y:=r;
while y<=windowheight do
begin
x:=r;
while x<=windowwidth do
begin
plitk(x,y,r);
x:=x+2*r;
end;
y:=y+2*r
end;
end