Полная версия: Программа функций
написать программу функций : Пусть дано 10 целых чисел , которые вводятся по одному . получит сумму из тех, которые меньше по абсолютному значению квадрата порядкового номера вводимого числа.
Код
sum:=0;
for i:=1 to 10 do
begin
read(x);
if abs(x)<i*i then sum:=sum+x;
end;
writeln(sum);
for i:=1 to 10 do
begin
read(x);
if abs(x)<i*i then sum:=sum+x;
end;
writeln(sum);
Что-то у вас название темы не хорошее 
Может переименуете сами ?
Может переименуете сами ?
Люди, помогите написать на Паскале корень пятой степени.
x^y = Exp(y*ln(x));
x^(1/5) = Exp(ln(x)/5);
Из школьной математики
x^(1/5) = Exp(ln(x)/5);
Из школьной математики
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.