Var n,d,a1,a0,i:integer;
begin
writeln('d=');
read(d);
writeln('n=');
read(n);
writeln('a1=');
read(a1);
a0:=a1;
for i:=2 to n do
a0:=a0+d;
writeln('Сумма равна');
writeln(a0);
<span>end.
.</span>
При помощи языка мы общаемся и помогает в этом нам словестные описания
11010011-21211-в троичной(11010011(2)=1*2(0)+1*2(1)+0*2(2)+0*2(3)+1*2(4)+0*2(5)+1*2(6)+1*2(7)=211(10)
далее из десятичной в троичную
211/3 остаток 1 ответ 1
70/3 1 и 1
23/3 2 2
7/3 1 1
2/3 2 2
в итоге ответ 21211
Var
A, B, C, D: integer;
f1, f2: Text;
begin
Assign(f1, 'input.txt');
Reset(f1);
Assign(f2, 'output.txt');
Rewrite(f2);
while not Eof(f1) do
begin
Readln(f1, A, B, C, D);
if Abs(A - C) = Abs(B - D) then writeln(f2,'YES')
else writeln(f2,'NO')
end;
Close(f1);
Close(f2)
end.
For(i=0; i < 10; i++){
var ress = 2;
var end = res*2;
echo end;
}