Линейный алгоритм - алгоритм, все этапы которого выполняются однократно и строго последовательно.
Даже если тело цикла представляет линейный фрагмент, программа в целом не является линейной , т.к цикл не имеет тип цикла DO.
type Cl = class
a:integer;
constructor Create(b:integer);
procedure P;
end;
constructor Cl.Create(b:integer);
begin
a := b;
end;
procedure Cl.P;
begin
if (a div 100 > 0) and (a > 0) then
begin
a := a - 1;
writeln('new a = ', a);
end;
end;
var
Obj:Cl;
a :integer;
begin
write('a = ');
readln(a);
Obj := Cl.Create(a);
Obj.P;
Readln;
Obj.Destroy;
end.
Напиши про какую комбинацию клавишь на клаве надо нажать,чтобы получилось что-то и т.д.типа контр+альт+делит=диспетчер задач)
Var
i:integer;
begin
for i:=1 to 8 do
if i mod 2 <>0 then
writeln('Число ',i,' Квадрат ',i*i,' Куб ',i*i*i);
<span>end.</span>