В Dec будет:
3329
3987
394
а в Bin:
0011 0010 0010 1001
0011 1001 1000 0111
0011 1001 0100
Program enot;
Var n,s,i:integer;
begin
read(n);
s:=0;
for i:= 1 to n do
if i mod 2 = 0 then
s:=s+i;
writeln('summa = ',s);
end.<span>
2.</span>Program enot;
Var n,p,i:integer;
begin
read(n);
p:=1;
for i:= 1 to n do p:=p*i;
writeln('proizvedenie = ',p);
<span>end.</span>
1-4
2-3
3-1
4-4
5-2
6-4
7 - 64+32+1=97
8 - 15
9 - 563124
10 - на 5
11 - 5 нижних
<em>// PascalABC.NET 3.2, сборка 1485 от 15.06.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a,b,x,y:real;
Writeln('Введите a,b,x,y'); Read(a,b,x,y);
var F:=cos(Power(x,a-b))/(Abs(Power(y,4)-Power(y,5))+5.4)+n*n;
Writeln('F=',F)
end.
<u>Пример</u>
n= 14
Введите a,b,x,y
1.35 0.58 6.2 3.19
F=195.99743737259