Если не ошибаюсь,то их чинят инженеры
Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>
1) <span> Форма цилиндра С открытым верхом</span>
2) Форма прямоугольника
3) Назначение ─ игрушки
4) Материал ─ дерево
1*2(7)+1*2(6)+0*2(5)+1⋅2(4) + 0⋅2(3) + 1⋅2(2) + 0⋅2(1) + 1⋅2(0) = 11010101₂
<span>B⋅16(6) + A⋅16(5) + B⋅16(4) + 0⋅16(3) + 4⋅16(2) + C⋅16(1) + A⋅16(0) = BAB04CA</span>₁₆
От англ. <span>log in логичнее лОгин, но скорей всего допустимы оба варианта.
</span>