1) Сколько раз выполнится цикл? a:=12;
нц для і от 3 до 11 шаг 2
a:=a+8;
кц
2) Определите значение переменной k после выполнения следующего по фрагмента программы
K:=5
Нц пока k<=8
K:=k+1
Кц
3) Какое значение будет присвоено переменной x после выполнения данного фрагмента:
y:=24 mod 9;
x:=9;
Если x>y
То x:=x+2;
Нц пока x>50
X:=x-3
Сварщик — профессия ответственная, почти виртуозная, от качества работы которого зависит многое — долговечность и устойчивость строительных конструкций, работа и срок службы различной техники.
Сварочные работы применяются во многих отраслях промышленности. Сварщики трудятся на стройплощадках, создавая конструкции и системы различных коммуникаций, в промышленности, где применяют свой опыт и навыки в машиностроении, кораблестроении и в других областях.
Сварщик, как профессия, подразделяется на несколько специализаций: сварщик ручной дуговой сварки, газосварщик, оператор автоматических сварочных аппаратов. Рабочие всех этих специальностей занимаются одним делом — соединением металлических конструкций, сложных аппаратов, деталей, узлов методом сплавления металлов. От мастерства сварщиков зависит качество сварочных швов.
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )
for i:=1 to 20 do A[i]:=random(9); // заполняем массив
for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;
for i:=1 to 20 do write(A[i]:3); // Выводит весь массив
writeln(); // просто перевод на новую строку для красоты
writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.