Y=X*COS(X)+SIN(X) Написать программу 2 способами: цикл с параметром и с предусловием Pascal ABC

Предыдущий
вопрос Следующий
вопрос

Программа на Pascal ABC с использованием цикла с параметром:program CalculateFunction
va
x, y: real
begi
for x := 0 to 10 d
begi
y := x * cos(x) + sin(x)
writeln('y = ', y:0:2)
end
end.Программа на Pascal ABC с использованием цикла с предусловием:program CalculateFunction
va
x, y: real
begi
x := 0
while x <= 10 d
begi
y := x * cos(x) + sin(x)
writeln('y = ', y:0:2)
x := x + 1
end
end.