Const
var s:integer;
procedure ploshad poverhnosti (s:integer);
var h,l,sbok:integer;
begin
writeln (' vedite l i h');
readln (l,h);
sbok:=h*(l^2);
end;
begin
s:=(ploshad poverhnosti)+2*(l^2);
writeln(s,' ');
readln;
end.
Но это очень не точно.
Для создания рекламы приглашений и т.д
Var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do A[i]:=i*3;
S:=0;
for i:=1 to 100 do S:=S+A[i];
Writeln('сумма элементов массива= ',s);
<span>end.
или без лишнего цикла можно так
var A :array[1..100] of integer;
var i, S :integer;
begin
for i:=1 to 100 do
begin
A[i]:=i*3;
S:=S+A[i];
end;
Writeln('сумма элементов массива= ',s);
<span>end.</span></span>
<span>Программа, позволяющая набрать текст, отредактировать его, отформатировать, распечатать и сохранить.
</span><span>Текстовый редактор - это программа, позволяющая набрать текст, отредактировать его, отформатировать, распечатать и сохранить. </span>
Ответ 2 , так как курс по физике выбрали 30 человек, а поэтому велика вероятность, что все ученики 10г класса могут его выбрать.