var
i: byte;
BEGIN
while true do
for i:=0 to 10 do
writeln(i);
END.
циклическая задача
Помогите написать прогу. Очень простую.
Счетчик считающий от 0 до 10 при бесконечном цикле (по типу часов)
В basic выглядит примерно так:
10 Let N=0
20 Let N=N+1
30 Print N
40 if N=10 then go to 10
50 go to 20
как она же будет выглядеть в Pascal???
Счетчик считающий от 0 до 10 при бесконечном цикле (по типу часов)
В basic выглядит примерно так:
10 Let N=0
20 Let N=N+1
30 Print N
40 if N=10 then go to 10
50 go to 20
как она же будет выглядеть в Pascal???
Цитата:
Originally posted by AlexButcher
Помогите написать прогу. Очень простую.
Счетчик считающий от 0 до 10 при бесконечном цикле (по типу часов)
В basic выглядит примерно так:
10 Let N=0
20 Let N=N+1
30 Print N
40 if N=10 then go to 10
50 go to 20
как она же будет выглядеть в Pascal???
Помогите написать прогу. Очень простую.
Счетчик считающий от 0 до 10 при бесконечном цикле (по типу часов)
В basic выглядит примерно так:
10 Let N=0
20 Let N=N+1
30 Print N
40 if N=10 then go to 10
50 go to 20
как она же будет выглядеть в Pascal???
Ех..... Ностальгия. Я с такого бейсика начинал. Да и многие другие тоже.
Код:
Учи паскаль или сразу Си. На таком бейсике далеко не поедеш :)
Цитата:
Originally posted by Rebbit
Ех..... Ностальгия. Я с такого бейсика начинал. Да и многие другие тоже.
Учи паскаль или сразу Си. На таком бейсике далеко не поедеш :)
Ех..... Ностальгия. Я с такого бейсика начинал. Да и многие другие тоже.
Код:
var
i: byte;
BEGIN
while true do
for i:=0 to 10 do
writeln(i);
END.
i: byte;
BEGIN
while true do
for i:=0 to 10 do
writeln(i);
END.
Учи паскаль или сразу Си. На таком бейсике далеко не поедеш :)
Спасибо. :)
Можо сказать выручил.
ЗЫ тему можно закрыть.