Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа2 / Examples / 3for
.pas Program ThreeFor;
var
i1: integer;
i2: integer;
i3: integer;
i: integer;
begin
i:=1;
for i1 := 1 to 10 do
for i2 := 1 to 10 do
for i3 := 1 to 10 do
begin
write(i);
writeln;
i := i+1;
end;
end.
var
i1: integer;
i2: integer;
i3: integer;
i: integer;
begin
i:=1;
for i1 := 1 to 10 do
for i2 := 1 to 10 do
for i3 := 1 to 10 do
begin
write(i);
writeln;
i := i+1;
end;
end.
Соседние файлы в папке Examples