Var
a,b,c:integer;
begin
a:=20;
c:=0;
for b:=1 to 8 do begin
c:=c+a;
a:=a+3;
end;
write('Количество деталей=',c);
end.
Var
a: array[1..10] of real;
i: integer;
b: real;
begin
for i := 1 to 10 do
begin
Write('Введите ', i, '-ый элемент массива ');
Readln(a[i]);
b := b + a[i];
end;
Writeln('Сумма равна ',b);
<span>end.</span>
Var
n:Integer;
Begin
Writeln('Введите в градусах Цельсия');
Read(n);
Writeln('В Фаренгейтах это = ',(n*9/5)+32:0:1);
end.
А,г,б,в)))))))))))))))))))