Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Информатика ЛР 7+8(без 5 задания) 10 Вариант / LAB8
.1.pas program Lab8;
Var x,y:integer;
Begin
For x:=1 to 10 do
Begin
y:=x;
writeln(y, '. Бочкарев Андрей');
end;
end.
Var x,y:integer;
Begin
For x:=1 to 10 do
Begin
y:=x;
writeln(y, '. Бочкарев Андрей');
end;
end.
Соседние файлы в папке Информатика ЛР 7+8(без 5 задания) 10 Вариант