ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\";
ПЕР
число, куб: ЦЕЛ;
УКАЗ
число := 1;
КОЛЬЦО
УВЕЛИЧИТЬ(число);
куб := число * число * число;
ПОКА куб > 10000 ВЫП
куб := куб ДЕЛИТЬ 10
КОН;
ЕСЛИ куб = 2016 ТО
Вывод.ЧЦел("%d", число, 0, 0, 0);
ВЫХОД
КОН
КОН
КОН Задание.
Program z1;
var x, y : integer;
begin
x:=3;
y:=5*x + 6;
write (y);
end.
Вариант номер 1:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
repeat begin
p:=p+(p/10);
a:=a+1;
end;
until p>=20;
writeln('a=',a);
<span>end.
Вариант номер 2:
program c1ba;
var a:byte;
p:real;
begin
p:=10;
a:=1;
while p<=20 do begin
p:=p+(p/10);
a:=a+1;
end;
writeln('a=',a);
<span>end.</span></span>
//Pascal ABC.NET 3.1 сборка 1256
Const
n=4;
Var
ma:array[1..n,1..n] of integer;
i,j:integer;
begin
randomize;
writeln('Matrix:');
for i:=1 to n do
begin
for j:=1 to n do
begin
ma[i,j]:=random(10);
write(ma[i,j]:4);
end;
writeln;
end;
for i:=1 to n div 2 do
begin
swap(ma[i,i],ma[n-i+1,n-i+1]);
swap(ma[i,n-i+1],ma[n-i+1,i]);
end;
writeln('Final matrix:');
for i:=1 to n do
begin
for j:=1 to n do
write(ma[i,j]:4);
writeln;
end;
end.
A:=x+1/x-1
b:=a;
for i:=1 to x do b:=b*a;
b:=b+18*x*(y*y);