Ответ:
program MatFormula;
uses
Math;
var
x: Double;
begin
Write ('Введите X: ');
ReadLn (x);
WriteLn ('Tg (4-x) = ', Tan (4 - x));
Write ('Введите X: ');
ReadLn (x);
WriteLn ('Корень из модуля X = ', Sqr (Abs (x)) );
ReadLn;
end.
Var
a, b: longint;
begin
a := 1;
for b := 1 to 20 do
if (b mod 2 = 1) then
a := a * b;
writeln(a);
end.
--------------------
var
b: integer;
begin
for b := 20 to 50 do
if (b mod 2 = 0) then
writeln(b);
end.
------------------
var
a, b: integer;
begin
a := 1;
for b := 1 to 10 do
a := a * b;
writeln(a);
end.
----------------------
var
a, b: integer;
begin
for b := 2 to 48 do
if (b mod 2 = 0) then
a := a + b;
writeln(a);
end.
------------------------
var
i, k: integer;
begin
readln(i);
k := i div 1000;
i := i mod 1000;
i := ((i + 1000 * (i mod 10)) div 10) * 10 + k;
writeln(i);
end.
--------------------------
Это с первого по... какое-то там:)
1)11-2=9 (1)
2)9-2=7 (1)
3)7-2=5 (1)
4)5*3=15 (2)
5)15-2=13 (1)
Ответ:11121
Var
txt:text;
begin
assign(txt,'C:\input.txt');
reset(txt);