var
x, f : real;
begin
write('введите x=');
readln(x);
if x < 3 then f := ln(abs(2-x))
else if (x >= 3) and (x < 5) then f := x/(x-2)
else f := sqrt(x-4);
writeln('f=', f);
end.
//Вариант 2
//Pascal ABC.NET v3.0 сборка 1111
Var
i,max,n,a:integer;
begin
readln(n);
max:=-2147483648;
i:=1;
while i<>n+1 do
begin;
readln(a);
if (max<a) and (a mod 2=0) then max:=a;
i:=i+1;
end;
write(max);
<span>end.
</span>
Пример ввода:
4
1
2
3
4
Пример вывода:
4
<span><span>1) 2,54см <span>* 15 = 38,1см</span></span>
Соотношение между длиной и широтой экрана для разрешения 1024х768 768:1024 = 0,75
Находим ширину. Пусть ширина экрана равна "X", тогда высота равна 0,75X. По теореме Пифагора получится: X2+(0,75X)2=38,12<span>1,5625X2 = 1451,61</span>X2 ≈ 929<span><span>X ≈ 30,5 </span>см
</span>Кол-во точек равно: 305мм:0,28мм=1089
Ответ: Максимально возможное разрешение равно 1024х768</span>