Что будет на экране...

[Yulia13]

Что будет на экране в результате выполнения сле*дующих фрагментов программ? (Переменные опи*саны для всех фрагментов.)

var

k,x,i: integer;

begin

{ Фрагмент 1 }

k:=256;

while k<>l do

begin

write(k:4);

k:=k div 2

end;

{ Фрагмент 2 }

k:=5;

repeat

writeln(k);

k:=k+5

until k>30 ;

{ Фрагмент 3 }

for i:=1 to 5 do

writeln(i*5);

{ Фрагмент 4 }

for i:=8 downto 4 do

write(i :3);

{ Фрагмент 5 }

for x:=l to 79 do

begin

gotoxy(x,8);

write('*');

gotoxy(x,15);

write('*')

end;

end.

[Mad_Cat]

1)

256 128 64 32 16 8 4 2

2)

5
10
15
20
25
30

3)

5
10
15
20
25

4)

8 7 6 5 4

[ByAlex]

Вам лень самой все проверить с помощью программы или что то еще?

[Yulia13]

Если б у меня были такие умные преподы как тут,я бы тогда точно проверила...

[arrowsf1]

Смотр времени стоит

[9i.]

Сообщение от Mad_Cat

фрагмент 2)...

пять забыли.