327680 - информационный вес в битах/10240(20*64*8)=32
Int......................
Program abs;
var x,y,z:integer;
begin
readln(x);{первое число}
readln(y);{второе число}
z:=x+y;{их сумма}
if (z mod 3)=0 then
writeln(''Yes'')
else writeln(''NO'');
end.
Var
a:array[1..100] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(100)+1
if ((i mod 2)=0) then write(a[i]," ");
end;
end.
Имеем дело с арифметической прогрессией, где
а(1)=15
d=2
В N-й день улитка проползёт
a(N)= a(1)+d(N-1)=
=15+2(N-1)=13+2N
Через N дней улитка проползет в общей сложности
S(N)= a(1)+a(2)+..+a(N)
Сумма арифметической прогрессии равна
S(N)= ½(а(1)+a(N))*N=
=½(15+13+2N)*N=
=(14+N)*N
Через N дней
yлитка проползет
(14N+N²)см