Вася сосчитал количество цифр на клавиатуре из него вычел количество букв "f" (заглавных и строчных) на всех клавишах умножил полученное число на количество стрелок и прибавил количество букв алфавита, начертание которых на клавиатуре совпадает с начертанием некоторых букв алфавита на клавиатуре. какое число получилось у васи, если он не допустил ошибок

Получится число 52 так как,полностью не буду объяснять мы к 42 прибавляем 10 и получаем 52 долго объяснять так что ссори

Pascalabc.net 3.4.2, сборка 1881 от 19.11.2018 внимание! если программа не работает, обновите версию!

begin

  var n : = readinteger('n =');

  if n < = 1 then 1.print

  else

  begin

    var (s, i, f) : = (biginteger(1), 1, biginteger(1));

    repeat

      i += 1;

      f *= i;

      s += f

    until i = n;

    s.print

  end

end.

пример

n = 100

94269001683709979260859834124473539872070722613982672442938359305624678223479506023400294093599136466986609124347432647622826870038220556442336528920420940313

// pascalabc.net 3.0, сборка 1088 function fib(n: integer): longint; begin   if n< 3 then fib: =1 else fib: =fib(n-2)+fib(n-1) end; var   a,b,f,mn: longint;   i: integer; begin   write('введите а и b: '); read(a,b);   if a< b then mn: =a else mn: =b;   i: =1;   repeat       f: =fib(i); inc(i);   until f> =mn;   if f=mn then begin       if a=mn then mn: =b else mn: =a;       if fib(i)=mn then writeln('соседние числа фибоначчи')       else writeln('меньшее - число фибоначчи, большее - не его сосед')       end   else writeln('меньшее - не число фибоначчи, работа закончена') end. тестовые решения: введите а и b: 610 987 соседние числа фибоначчи введите а и b: 500 250 меньшее - не число фибоначчи, работа закончена введите а и b: 610 830 меньшее - число фибоначчи, большее - не его сосед