помогите решить задачки на языкке паскаль!

Question

1) a/c * b/d - ab - c/cd 
2) Вывести на экран результат вычисления по формуле x²+x+15 для всех целых чисел из интервала 0≤X≤15

Диана · Accepted Answer

var a,b,c,d,s: real; 
begin 
writeln('Введите a,b,c,d'); 
readln(a,b,c,d); 
s:=a/c*b/d-a*b-c/(c*d); 
writeln('s='); 
end. 
 
var x:integer; 
s:array[-10000..10000] of integer; 
begin 
for x:=0 to 15 do 
begin 
s:=power(x,2)+x+15; 
end; 
writeln(s); 
end. 
 
для абцшного. На скорую руку.

Мария Болотина · Answer

спасибо