Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Delphi / Операторы цикла в Paskal / LAB3
.PAS program loop1;
uses crt;
const m=10;
var i:integer;
begin
clrscr;
i:=1;
repeat
writeln('¬®п ЇҐаў п Їа®Ја ¬¬ !');
i:=i+1;
until i>m;
end.
uses crt;
const m=10;
var i:integer;
begin
clrscr;
i:=1;
repeat
writeln('¬®п ЇҐаў п Їа®Ја ¬¬ !');
i:=i+1;
until i>m;
end.
Соседние файлы в папке Операторы цикла в Paskal