В Паскале стандартная процедура <em>delete(S,l,k)</em>
удаляет в строке S с l-ой позиции k символов
If (xa * xa + ya * ya) < r * r then внутри
if (xa * xa + ya * ya) > r * r then во вне
if (xa * xa + ya * ya) = r * r then на
Устройство ввод-периферийное оборудование для занесения (ввода) данных или сигналов в компьютер либо в другое электронное устройство во время его работ/Сканер,Видео-и Веб-камера,Цифровой фотоаппарат,Плата видеозахвата,Микрофон,Цифровой диктофон,Мышь,Трекбол,Тачпад,Световое перо,Графический планшет,Тачскрин,Джойстик,Устройства основанные на компьютерном зрении типа Kinect.
Устройство вывода - периферийные устройства, преобразующие результаты обработки цифровых машинных кодов в форму, удобную для восприятия человеком или пригодную для воздействия на исполнительные органы объекта управления.
<span><span>Монитор (дисплей),</span>Принтер,<span>Графопостроитель(плоттер),</span></span>Встроенный динамик,Колонки,<span>Наушники</span>
Uses crt;
var a : array [1..10, 1..10] of integer ;
i,j,n,m:byte;
min,s:integer;
begin
s:=1;
randomize;
writeln('Введи кол-во строк(<10)');
readln(n);
writeln('Введи кол-во столбцов(<10)');
readln(m);
for j:=1 to m do
for i:=1 to n do begin
a[i,j]:=random(100);
gotoxy((i-1)*5+1,j+5);
writeln(a[i,j]);
end;
for i:=1 to m do begin
min:=a[1,i];
for j:=1 to n do if a[j,i]<min then min:=a[j,i];
gotoxy((i-1)*3+1,i+12);
write('min в ',i,' строке равен ',min);
s:=min*s;
end;
gotoxy(1,23);
writeln(s);
<span>end.</span>
Смотря что Вы называете циклом. По установившейся терминологии любой цикл состоит из заголовка цикла (по строению которого циклы часто и именуют) и тела цикла. В языке паскаль в заголовке цикла с предусловием стоит ключевое слово while и ключевое слово цикла с параметром for стоять уже не может. Но в теле цикла, которое может иметь любое содержимое, цикл for, конечно же, может встречаться.
А вот язык Алгол, на базе которого Н.Вирт сконструировал свой Паскаль, мог в заголовке цикла содержать очень много всего и, в том числе, смесь while с for:
for x:=p0 step h1 until q-1, q+1 step h2 until t, t+0.17 step h3 while cos(x/2)<0.85 do ...
Но Н.Вирт решил, что такой цикл неэффективен и... оставил от него жалкие ошметки. Возможно, компилятору "стало проще жить", но зато программисты в Паскале лишились возможности не только писать в цикле вещественные значения, но и вынуждены менять целочисленные только на 1 или -1.
