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>
Ответ 4( Adobe flash player бесплатный)
#include <stdio.h>
int main()
{
int N, s;
s = 1;
scanf("%d", &N);
for(int i = 1; i <= N / 2; ++i)
if(N % i == 0)
s = s + 1;
printf("%d", s);
}<span>
</span>