А)10010+128+32+16+1=10187
б)1100+8+2=1110
X=3*(-11)+3+6=-33+9=-24)
}=> Команда (сместиться на (24,-32)
y=3*(9)+3+2=27+5=32)
1.
Var a,b,c : Integer;
Begin
Readln(a,b,c);
Writeln((a mod b)*(c div b));
end.
2.
Var a,d,c,k : Integer;
Begin
Readln(a,d,c,k);
Writeln((a+(d-12)*3)*(c-5*k));
end.
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
Var
s:string;
begin
readln(s);
writeln(length(s));
readln;
end.