Программа на PascalABC(программу из блокнота копируете и вставляете в pascalABC)
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:=ReadInteger('n =');
var sum1:=n mod 10 +n div 1000;
var sum2:= n div 10 mod 10 + n div 100 mod 10;
Writeln('сумма крайних членов равна ', sum1);
Writeln('сумма средних членов равна ', sum2);
end.
(5*60*16*64)/1024=(75*2^2*2^4*2^6)/2^10=75*4=300(Мб)
1)
#include <iostream>
using namespace std;
void draw_square(int n)
{
for(int y = 0; y < n; y++)
{
for (int x = 0; x < n; x++)
cout << "*";
cout << endl;
}
}
int main()
{
int n;
cin >> n;
draw_square(n);
return 0;
}
2)
#include <iostream>
using namespace std;
void drawNumbers(int a)
{
while(a > 0)
{
cout << a%10 << endl;
a /= 10;
}
}
int main()
{
int a;
cin >> a;
drawNumbers(a);
return 0;
}
3)
#include <iostream>
using namespace std;
int main()
{
//можно гораздо быстрей, но мне лень
int a;
cin >> a;
for(int i = 1; i <= a; i++) if(a%i==0) cout << i << " ";
return 0;
}
4)
#include <iostream>
using namespace std;
void procedure(int a)
{
int b = a;
int c = 1;
while(b > 0) {c *= 10; b/=10;}
while(c > 1)
{
cout << (a%c)/(c/10) << endl;
c /= 10;
}
}
int main()
{
int a;
cin >> a;
procedure(a);
return 0;
}<span>
</span>
30*60*4=7200 символов
6300*8=50400 бит
50400/7200=7 бит на один символ
2^7=128 - мощность алфавита