1. замена процессора на более мощный
2 разгон процессора за счет увелечения тактовой частоты
3. разгой процессора за счет изменения множителя
S = int(input('s = '))
t=1
k=1
while k<s:
for i in range(t):
print(t)
t=t+1
k=k+t
for i in range(k-t,s):
print(t)
Пример:
<span>s = 5
1
2
2
3
3</span>
3 бита, ибо 8=2^3
еслиб было 7 букв, тоже 3 бита было бы. А вот если 3 буквы, то уже 2 бита
#include <iostream>
using namespace std;
int main()
{
int a = 0, b = 0, n = 0;
cin >> a >> b >> n;
b = (a*100+b)*n;
a = ((a/100)+b)*n;
cout << a << "\n" << b;
}
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var n:=ReadInteger('n=');
var s:=n mod 10;
n:=n div 10;
var d:integer;
while n>0 do (d,n):=(n mod 10,n div 10);
s+=d;
Writeln('Сумма ',s);
if s>10 then Writeln('Верно') else Writeln('Неверно')
end.
<u>№2</u>
begin
var s:=ReadInteger('n=').ToString;
var n:=s.Length;
(s[1],s[n]):=(s[n],s[1]);
s.Println;
if s[n].ToDigit.IsEven then Writeln('Верно') else Writeln('Неверно')
end.
<u>№3</u>
begin
var n:=ReadInteger('n=');
var p:=1;
while n>0 do begin
var d:=n mod 10;
if d.IsOdd then p*=d;
n:=n div 10
end;
Writeln('Произведение ',p);
If p.InRange(100,999) then Writeln('Верно') else Writeln('Неверно')
end.
<u>№4</u>
begin
var n:=ReadInteger('n=');
var k:=0;
while n>0 do begin
if n mod 10=5 then k+=1;
n:=n div 10
end;
if k=3 then Writeln('Верно') else Writeln('Неверно')
end.
<u>№5</u>
begin
var n:=ReadInteger('n=');
var k:=1;
Writeln('Делители: ');
for var i:=1 to n div 2 do
if n mod i=0 then begin
Print(i);
k+=1
end;
Writeln(n);
if k.IsEven then Writeln('Верно') else Writeln('Неверно')
end.