МНОГО БАЛЛОВ ИНФОРМАТИКА 10 класс!
Определите результат работы функции при входном значении, равном 123456:

function qq(x: integer):integer;

var i, s: integer;

begin

s:=0;

for i:=1 to 3 do begin

s := s + x mod 10;

x := x div 10;

end;

qq := s;

end;

Напишите процедуру, которая выводит на экран переданное ей число в системе счисления, которая задается вторым параметром (от 2 до 10).

​

[программа выдаст ошибку (см.приложеный файл).

Необходимо функции описать не через integer, а через longint.тогда ответом будет "перевернутое"

число:653421]

ответ:ssidududuhdhhd

Объяснение:udududududu

1 кбайт=1024 байта

1 байт=8 бит

81920/8=10240 байт

10240/1024=10 кбайт

vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.