Помогите пожалуйста. Дам 30 баллов СРОЧНО!!!!!!!!!!!
Составить таблицу значений функции y = 8 – x2/3 на отрезке [–4; 4] с шагом 1.
Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых значений:
–5; 5; 36; –10; 98; 63; 2; 8; 37 ; –45.
В отчет включить тексты программ на Паскале, реакцию ЭВМ.
Answers & Comments
1.
program f_znachenia;
var
x:real;
begin
x:=-4;
writeln(' x y');
while x<=4 do begin
writeln(x:4:1,8-sqr(x)/3:7:1);
x:=x+1;
end;
readln;
end.
2.
program pr_sum_kol;
var
x,pr,sum,kol,i:integer;
begin
pr:=1; sum:=0;kol:=0;
for i:=1 to 10 do
begin
read(x);
if x>0 then pr:=pr*x
else
if x<0 then
begin
sum:=sum+x;
kol:=kol+1
end
end;
writeln('Произведение положительных=',pr);
writeln('Сумма отрицательных=',sum);
writeln('Количество отрицательных=',kol);
readln;
end.