На C++
<span>#include <iostream.h>
const n=10;
void main()
{
int b,A[n]={1,2,3,4,5,6,7,8,9,0};
b=A[n-1];
for(int i=n-2;i>=0;i--)
A[i+1]=A[i];
A[0]=b;
for(i=0; i<n;i++)
cout<< A[i]<<',';
}
</span>
Странный вопрос.
Плюс нижней что бумага не торчит и не мешает, минус, что загрузка бумаги туда занимает больше времени.
Читаем N
считаем кол-во в каждом слою и выводим на экран
считаем кол-во всего и выводим на экран
Program help;
Var k, l,x,y: integer;
Begin
readln(k,l);
readln (x,y);
if y>k*x+l then
write ('точка лежит над прямой')
else
if y<k*x+l then
write ('точка лежит под прямой')
else
write ('точка лежит на прямой');
End.
Ответ:
Var i,n :integer;
Begin
Read(n);
Count:=0;
For i:=50 to n do
If i mod 3 = 0 then inc(count);
Write(count);
End.