Var
x,y,z:real;
Begin
Write('x = ');ReadLn(x);
Write('y = ');ReadLn(y);
Write('z = ');ReadLn(z);
WriteLn('u = ',Sin(abs((y-sqrt(abs(x)))*(x-(y)/(z*z+x*x/4)))));
WriteLn('v = ',Cos(z*z+x*x+4));
End.
6) 2
7) 4
8) ftp://edu.com/http.txt
9) Модель
10) <span>Метод познания, состоящий в создании и исследовании моделей
11) 4
12) 2
13) 4</span>
Зашифровка '100612' с ключём '100500': 000312
Программа:
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
writeln('Введите массив:');
for i:=1 to n do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
writeln;
for i:=1 to n do write(a[i]:4);
writeln;
end.
Пример:
Введите массив:
a[1] = 15
a[2] = -8
a[3] = 24
a[4] = -31
a[5] = 45
a[6] = -61
a[7] = 72
a[8] = 19
a[9] = 55
a[10] = -28
15 -8 24 -31 45 -61 72 19 55 -28