1.)=$D$2+D1
2.)=$A$1+A1
3.)<span>=D3+$A$2
</span>4.)=$D3+E$2
Program n1;
const nn=1000;
var x: array[1..nn] of integer;
m,i:integer;
begin
writeln('Введите размерность массива'); readln(m);
writeln('Введите массив');
for i:=1 to m do readln(x[i]);
for i:=1 to m do
if x[i]=0 then write(x[i],' ');
end.<span>
</span>
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
function IsHamming(n:integer):boolean;
begin
while n mod 2 = 0 do n:=n div 2;
while n mod 3 = 0 do n:=n div 3;
while n mod 5 = 0 do n:=n div 5;
Result:=(n=1)
end;
begin
var n:=ReadInteger('n=');
var s:int64:=0;
var k:=0;
var i:=2;
while k<>n do begin
if IsHamming(i) then begin
Inc(k); s+=i; Print(i)
end;
Inc(i)
end;
Writeln(NewLine,'Сумма элементов последовательности равна ',s);
n:=ReadInteger('Найти элемент с номером');
i:=2; k:=0;
while k<>n do begin
if IsHamming(i) then Inc(k);
Inc(i)
end;
Writeln('Найденное значение: ',i-1)
end.
<u><em>Тестовое решение:</em></u>
n= 33
2 3 4 5 6 8 9 10 12 15 16 18 20 24 25 27 30 32 36 40 45 48 50 54 60 64 72 75 80 81 90 96 100
Сумма элементов последовательности равна 1257
Найти элемент с номером 1000
Найденное значение: 51840000
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a,b,c:real;
Writeln('Введите коэффициенты квадратного уравнения (a b c)');
Read(a,b,c);
if a=0 then begin
Writeln('а=0 делает уравнение линейным');
if b=0 then Writeln('Корней нет')
else Writeln('Один корень ')
end
else begin
var d:=b*b-4*a*c;
if d<0 then Writeln('Нет действительных корней')
else
if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end
end.
