program ugol;
var a,b,c,f:integer;
begin
writeln('Введите шширину');
readln(a);
readln(b);
writeln('Введите длину');
readln(c);
readln(f);
if (a<>b) or(c<>f)then
writeln('Нет')
else
if (a=b)and(c=f) then
writeln('Да');
end.
(Исправленая версия)
ps(затупил подумал что квадрат это прямоугольник)
var
i, n, a: integer;
c1, c2, c3, c4: integer;
За 5 мин=1*2+1*2+1*2+1*2+1*2=10
За 7 мин=1*2+1*2+1*2+1*2+1*2+1*2+1*2=14
За 9 мин=18
И т.д.
131(10)=10000011(2)
63(10)=111111(2)
255(10)=11111111(2)
<span>var n,s,i:integer;
begin
write('n = '); readln(n);
if n mod 2 = 0 then n:=n+1;
s:=0;
for i:=1 to 7 do
begin
s:=s+n;
n:=n+2;
end;
writeln('s = ',s);
end<span>.
Пример:
</span><span>n = 10
s = 119</span></span>