Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program p04;
uses crt;
var i:integer;
begin
for i:=40 to 80 do
begin
write(chr(i)); writeln (' -',i);
i:=i+1;
end;
end.
uses crt;
var i:integer;
begin
for i:=40 to 80 do
begin
write(chr(i)); writeln (' -',i);
i:=i+1;
end;
end.
Соседние файлы в папке 2 лаб. Структурные операторы