1024(10) = 10000000000(2)
<span>368(8) - ошибка в записи числа</span>
1038(10) = 2016(8)
304(8) = 11000100(2)
var a:array[1..15]of integer;
i:integer;
begin
for i:=1 to 15 do if a[i]<0 then write(i,' ');
end.
function f(x:real):real;
begin
f:=2*sin(x)*sin(x)+1;
end;
var x:real;
begin
readln(x);
writeln(f(x));
end.
Код с примером выполнения во вложениях. Удачи.
===== PascalABC.NET =====
begin
var a := 1.7 * (4.9 - 7.23 / 4.8) + 3.4;
var b := 1.2314 + 8.85 ** 5;
var c := 0.00354 / (347 + 526.71) * 0.21;
PrintLn(a, b, c)
end.
Результаты:
9.169375 54290.7953553125 8.50854402490529E-07