Uses graphabc;
procedure vvod(var a,b: integer);
begin
writeln('Введите ширину отступа');
read(a);
writeln('Введите ');
read(b);
end;
procedure squares(r,nachdl: integer);
var x1,y1,x2,y2: integer;
begin
y1:=0;
x1:=0;
x2:=nachdl;
y2:=nachdl;
while x2<windowheight do
begin
drawrectangle(x1,y1,x2,y2);
x2:=x2+r;
y2:=y2+r;
nachdl:=nachdl+r;
end;
end;
var
r,nachdl: integer;
begin
vvod(r,nachdl);
squares(r,nachdl);
<span>end.</span>
21221
ну получается
(((5*2=10)-3=7)*2=14*2=28)-3=25
1)uses crt;
var a,b:integer;
begin
readln(a);
readln(b);
if ((a>0) and (b>0)) or ((a<0) and (b<0)) then writeln('Имеют одинаковые знаки');
if ((a>0) and (b<0)) or ((a<0) and (b>0)) then writeln('Имеют разные знаки');
if (a=0) or (b=0) then writeln('Некорректно');
end.
2) какой именно коэффициент?
<em>// PascalABC.NET 3.2, сборка 1439 от 09.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Transform(x->x>0?x*4:x*7); a.Println
end.
<u>Пример</u>
n= 13
-9 23 -29 -36 -10 -20 9 28 26 34 -41 -2 45
-63 92 -203 -252 -70 -140 36 112 104 136 -287 -14 180
Program z1;
var d1,d2,a :integer;
r1,r2:real;
begin
writeln('Введите диаметры');
readln(d1,d2);
r1:=d1/2;
r2:=d2/2;
if r1>r2 then
p:=pi*sqr(r1)-pi*sqr(r2);
writeln('первая окружность-внешняя, p=',p:8:3);
else
p:=pi*sqr(r2)-pi*sqr(r1);
writeln('вторая окружность-внешняя, p=',p:8:3);
end.