const
n = 5;
var
A: array[1..n, 1..n] of real;
i, j, t: integer;
begin
for i := 1 to n do
for j := 1 to n do
begin
t := i * sqr(sqr(i)) + j * sqr(sqr(j));
A[i, j] := (t * sqr(t) + i * i) / (exp(4 / 3 * ln(i)) + sqr(sqr(j)));
write(A[i, j]:0:4, ' ');
end;
writeln;
readln;
end.
Var
День,месяц:byte;
Begin
Write('№ дня = ');ReadLn(День)
Var C: = 365 - День
Write('№ месяца = ');ReadLn(Месяц);
Case Месяц of
2:C:=C-31;
3:C:=C-59;
4:C:=C-90;
5:C:=C-120;
6:C:=C-151;
7:C:=C-181;
8:C:=C-212;
9:C:=C-243;
10:C:=C-273;
11:C:=C-304;
12:C:=C-334
End;
if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')
else
Case C mod 10 of
1:Write('До нового года остался ',C,' день');
2..4:Write('До нового года осталось ',C,' дня');
0,5..9:Write('До нового года осталось ',C,' дней')
End
End.
const
n=5;
var A:array[1..n,1..n] of real;
i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
A[i,j]:=(((i ** 5 + j ** 5) ** 3 + i ** 2)/ (i ** (4/3) + j ** 4));
writeln(A[i,j]:4);
end;
writeln;
end;
readln;
end.