Материальная - машина и вселенная
Нематериальная - запись формулы
Смешанная - школа и армия
Если будут вопросы пиши.
var
a,b,c,d: integer;
begin
readln(a,b,c,d);
writeln(a-b-c-d) ;
end.
<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>
1 var
2 cl : array[0 .. 2] of TColor = (clGreen, clRed, clYellow);
3 curr : integer = 0;
4
5 procedure TForm1.Button1Click(Sender: TObject);
6 begin
7 curr := succ(curr) mod 3;
8 Color := cl[curr];
9 end;
10
11 procedure TForm1.FormCreate(Sender: TObject);
12 begin
13 Color := cl[curr];
14 end;