Он построил модель мира с целью познания.
1)
var
a,b,c,d,i:real;
begin
write('Введите числа a,b,c,d по порядку: ');
readln(a,b,c,d);
i:=(a*b/c)+d;
writeln('Ответ: ',i);
readln;
end.
<span>
2)
var
a,b,i:real;
begin
write('Введите числа a,b по порядку: ');
readln(a,b);
i:=(sqrt(a*b))/(a-b)+(abs(a*b))/25.4;
writeln('Ответ: ',i);
readln;
<span>end.
</span>
3)
var
y,x,i:real;
begin
write('Введите значения x,y по порядку: ');
readln(x,y);
i:=1+(((sqrt(x))+cos(y-2))/((x*x*x*x)/2)+sin(y)*sin(y));
write('Ответ: ',i);
readln;
<span>end.</span></span>
2 в 9 степени = 512; Ответ 9
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
var m:=ReadInteger('M=');
var a:=MatrixRandom(m,m,1,9);
for var i:=0 to m-1 do begin
for var j:=0 to m-1 do Print(a[i,j]);
Writeln
end;
var si:=0;
for var i:=0 to m-1 do begin
var sj:=0;
for var j:=0 to m-1 do sj+=sqr(a[i,j]);
si+=sj
end;
Writeln('S=',sqrt(si))
end.
<u><em>Тестовое решение:</em></u>
M= 6
6 5 2 7 1 1
8 7 9 3 1 8
2 1 7 9 5 7
3 2 8 1 1 8
3 9 1 2 6 7
5 3 5 4 8 3
S=32.6190128606002
Мне кажется что 1,2
Ответ:1,2