цикл For, не врубаюсь Опции

[suriv]

Не совсем понятен мне цикл for

Код

{For I := 1 to 10 do  
Writeln(S)     -это и ежу понятно}

например:

Код

Begin  
For I := 1 to 10 do  
Begin  
For J := 1 to 10 do  
If I*J < 10 then Write(I*J, ' ')  
else Write(I*J, ' ');  
Writeln;

или

Код

For I := 1 to Length(S) do  
If S[I] = ' ' then Inc(Count);  
Write('Количество пробелов: ', Count);

а это так воще нереально для меня сделать (7 урок);

1 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0
0 0 0 0 5 0 0 0 0
0 0 0 0 0 6 0 0 0
0 0 0 0 0 0 7 0 0
0 0 0 0 0 0 0 8 0
0 0 0 0 0 0 0 0 9

{В паскале сижу 2ой день поэтому и вопрос тупой}

3. Все исходники должны помещаться в теги...

Сообщение отредактировано: APAL - 27.10.2004 9:44

[Amro]

Ну и в чем собственно вопрос?

volvo У человека наверное книги нет!!! А можь он её открывать не желает!!

suriv Возьми любую книгу по паскалю, там всё написано ....
А если всё таки что-то не поймёшь, выкладывай сюда более конкретные вопросы, а не то что ты написал!!!

Сообщение отредактировано: Amro - 26.10.2004 22:54