Var k,n:integer;
begin
n:=1;
k:=2;
while k<=45 do
begin
n:=n+1;
k:=k*2;
if n mod 7 = 0 then k:=k-23;
end;
writeln('n = ',n,' k = ',k);
end.
Результат:
n = 6 k = 64
Procedure SolveLinear;
var
k, x, b, y: real;
begin
write('k=');
readln(k);
write('x=');
readln(x);
write('b=');
readln(b);
y := k * x + b;
writeln('y=kx+b=', y);
end;
10 переведи в 4чную систему счисления, сосчитай кол-во разрядов и вот ответ, но т.к. ты ленивый, то 10 это 22, 2 разряда, значит нажимать нужно 2 клавиши, если нажимать 2 клавиши, то можно 15 разных символов ввести
Var
x, s, count: longint;
begin
x := 1;
s := 0;
count := 0;
while x <> 0 do
begin
read(x);
if x < 0 then
inc(count);
if x mod 4 = 0 then
s := s + x;
end;
writeln(count, ' ', s);
end.
Var
cnt, i,tmp, n, ans:longint;
begin
Writeln('Введите n -> ');
Readln(n);
for i:= 1 to n do
begin
tmp:= i;
cnt:= 0;
while tmp > 0 do
begin
inc(cnt);
tmp := tmp div 10;
end;
ans:= ans + cnt;
end;
Writeln(ans);
end.