Program Algorithm;
uses crt;
var result, a:real;
begin
for a:= 0 to 10.5 do
begin
result:=2*(Pow (a),5)*3*a*a-1/7*a+12;
a:=a+1.5;
writeline ("Your answer is ", result);
end;
end.
Как-то так, возможно не надо ставить begin/end в цикле for, потому что я уже не помню когда они нужны.
̶к̶р̶а̶с̶н̶о̶м̶ Peugeot
серой ̶A̶u̶d̶i̶
некрасной F̶o̶r̶d̶
Ответ:серой, некрасной peugeot.
Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.
3 D - dimensional (dimension - измерение)