Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.
#inclued<bits/stdc++.h>
using namespace std;
int main()
{int d,m;
cin>>d>>m;
if (m==1)
{if (d>=20)
cout<<"vodoleey";
else cout<<"kozerog";}
if (m==2)
{if (d>=19)
cout<<"ribi";
else cout<<"vodoley";}
if (m==3)
{if (d>=21) cout<<"oven";
else cout<<"ribi";}
if (m==4)
{if (d>=20)
cout<<"telec";
else cout<<"oven";}
if (m==5)
{if (d>=21)
cout<<"blizneci";
else cout<<"telec";}
if (m==6)
{if (d>=22)
cout<<"rac";
else cout<<"blizneci";}
if (m==7)
{if (d>=23)
cout<<"lev";
else cout<<"rac";}
if (m==8)
{if (d>=23)
cout<<"deva";
else cout<<"lev";}
if (m==9)
{if (d>=23) cout<<"vesi";
else cout<<"deva";}
if (m==10)
{if (d>=23)
cout<<"scorpion";
else cout<<"vesi";}
if (m==11)
{if (d>=23)
cout<<"strelec";
else cout<<"scorpion";}
if (m==12)
{if(d>=22)
cout<<"kozerog";
else cout<<"strelec";}
return 0;
}
Нечего не видно
приблизь фото
Var a,b,c:integer;
begin
writeln('введите число кроликов');
readln(a);
c:=0;
for b:=1 to a do
begin
if (b mod 3 = 0) then c:=c+1;
end;
writeln(c ,' клетки будут полностью заполнены');
<span>end.</span>
алг
нач
закрасить
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока внизу свободно
двигаться вниз
закрасить
кц
нц пока НЕ справа свободно
двигаться вверх
кц
двигаться вправо
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока внизу свободно
двигаться вниз
закрасить
кц
нц пока НЕ справа свободно
двигаться вверх
кц
двигаться вправо
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
нц пока внизу свободно
двигаться вниз
закрасить
кц
нц пока НЕ справа свободно
двигаться вверх
кц
двигаться вправо
нц пока НЕ внизу свободно
двигаться вправо
закрасить
кц
кон
на алгоритмическом языке я как понял надо
