Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Все лабораторные работы по паскалю / 2 лаб. Структурные операторы / Program17
.pas program prog17;
uses crt;
const n=99;
var i: byte;
begin
clrscr;
randomize;
i:=1+random(n);
while i mod 3 <> 0 do
i:=1+random(n);
writeln('i=',i);
readln;
end.
uses crt;
const n=99;
var i: byte;
begin
clrscr;
randomize;
i:=1+random(n);
while i mod 3 <> 0 do
i:=1+random(n);
writeln('i=',i);
readln;
end.
Соседние файлы в папке 2 лаб. Структурные операторы