Программа выполняется но действия недоступны
Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.
1. Лицензионные
2. Нелегальные (пиратские)
3. условно-бесплатные
4. бесплатные
PAscal abc.
<em><u>Проверка.</u></em>
введите кол-во элементов массива
10
-8 -12 10 14 -1 13 -9 14 3 11
сумма=41<span>
</span>
S=int(input())
m=0
while s!=0:
m+=s%10
s=s//10
print(m)