<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadInteger('Введите натуральное число:');
var p:=Round(log2(s));
Writeln('Два в степени ',p,' = ',power(2,p))
end.
<u>Пример</u>
Введите натуральное число: 4093532
Два в степени 22 = 4194304
var a,b,c,d,x1,x2: real;
begin
writeln('Введите коэффициенты a,b,c:');
readln(a,b,c);
d:=(sqr(b))-(4*a*c);
if d>0 then begin
x1:=(-b+(sqrt(d)))/(2*a);
x2:=(-b-(sqrt(d)))/(2*a);
writeln('---------');
writeln('x1= ',x1);
writeln('x2= ',x2);
end;
if d=0 then begin
x1:=(-b/2*a);
writeln('x= ',x1);
end;
if d<0 then writeln('Корней нет!');
end.
<span>исполняемый ехе файл получается в результате работы : компилятора
</span>
//PascalABC.Net 3.2
begin
var n:=readinteger('n =');
var f1:=0; var f2:=1; var i:=1;
while (i<>n) do
begin
f2+=f1;
f1:=f2-f1;
inc (i);
end;
write (f2);
end.
1)
program chik;
var i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 10 do
writeln(i:2,'*',j:2,'=',i*j:2);
<span>end.
</span>2)
program chik2;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 8 do
if(i mod 2=1)and(j mod 2=0)then writeln(i:2,'*',j:2,'=',i*j:2);
end.