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.
Но это очень не точно.
Алгоритм - система последовательных операций.
Конечность алгоритма - означает расчлененность определяемого алгоритмом вычислительного процесса на отдельные этапы, возможность выполнения которых исполнителем (компьютером) не вызывает сомнений; конечность.
Понятность алгоритма - означает, что алгоритм должен содержать только те команды, которые входят в набор команд, который может выполнить конкретный исполнитель.
Точность алгоритма - детерминированность (определенность, точность, однозначность) . Это свойство заключается в том, что при задании одних и тех же исходных данных несколько раз алгоритм будет выполняться абсолютно одинаково и всегда будет получен один и тот же результат. ))))))))))))))))))
Сама ищю ответ!!!!!!...!;,,!!.!.!.! оушкшшалоклщцшуоушцщ2зз1щцл
Const n=10;
var
a:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
s:=0; k:=0;
for i:=1 to n do
if a[i]<0
then begin s:=s+a[i]; k:=k+1; end;
writeln('s = ',s,' k = ',k);
end.
Пример:
21 5 -11 -6 -14 -9 1 -25 9 5
s = -65 k = 5
Var
chisl, znam, multi: real;
begin
multi := 1;
chisl := 1;
znam := 2;
for var k := 1 to 9 do
begin
multi *= chisl / znam;
chisl += 1;
znam += 1;
end;
write(multi);
end.
