1.
var n1,n2,n3: integer;
begin
writeln('Введите n1,n2,n3: ');
readln(n1,n2,n3);
if (n2<n1) then swap(n2,n1);
if (n3<n1) then swap(n3,n1);
if (n3<n2) then swap(n3,n2);
writeln('n1,n2,n3 в возрастающем порядке: ',
n1,' ',n2,' ',n3);
end.
2.
var a,b,c: integer;
var s: real;
begin
writeln('Введите a,b,c: ');
readln(a,b,c);
s:=(a-b-c)/(sqrt(a*b*c));
writeln(s);
end.
3.
var a,b,c: integer;
var s: real;
begin
writeln('Введите a,b,c: ');
readln(a,b,c);
s:=(a+b+c)/3;
writeln('Среднее арифметическое: ',s);
end.
4.
var a,b: integer;
var s: real;
begin
writeln('Введите a,b: ');
readln(a,b);
if ((a>0) and (b>0)) then s:=a+b
else s:=a*a-b*b;
writeln(s);
end.
52 раза
Объяснение:
Цикл for существует в двух формах:
for счетчик:=значение to конечное_значение do
тело_цикла;
for счетчик:=значение downto конечное_значение do
тело_цикла;
Счетчик – это переменная любого из перечисляемых типов (целого, булевого, символьного, диапазонного, перечисления). Начальные и конечные значения могут быть представлены не только значениями, но и выражениями, возвращающими совместимые с типом счетчика типы данных. Если между начальным и конечным выражением указано служебное слово to, то на каждом шаге цикла значение параметра будет увеличиваться на единицу. Если же указано downto, то значение параметра будет уменьшаться на единицу.
Количество итераций цикла for известно именно до его выполнения, но не до выполнения всей программы. Так в примере ниже, количество выполнений цикла определяется пользователем. Значение присваивается переменной, а затем используется в заголовке цикла. Но когда оно используется, циклу уже точно известно, сколько раз надо выполниться.