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.
Ответ дал: Гость
7fe=14*16^0+15*16^1+7*16^2=2046 в 10 с/с 2046/2=1023 байт
e=14
f=15
ответ 2
Ответ дал: Гость
var
n,a: integer;
begin
readln(n);
a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;
Популярные вопросы