Предмет: Информатика,
автор: tiimiik95
задание 5, помогите, пожалуйста, нужно решить с помощью pascal abc
Приложения:
Ответы
Автор ответа:
0
var
x, y, a: real;
k: byte;
begin
readln(x, a);
for l: byte := 1 to 4 do
begin
k := 1;
for b: byte := 1 to l do
k *= b;
y += (power(x, (1 + l * 3))) / k;
end;
writeln(y * 5 * a);
end.
x, y, a: real;
k: byte;
begin
readln(x, a);
for l: byte := 1 to 4 do
begin
k := 1;
for b: byte := 1 to l do
k *= b;
y += (power(x, (1 + l * 3))) / k;
end;
writeln(y * 5 * a);
end.
Автор ответа:
0
Эм... В общем, обычно ide показывают, где ошибки) У меня всё работает
Автор ответа:
0
значит, у меня тупо не работает сам pascal abc...
Автор ответа:
0
Попробуйте pascalabc.net
Интересные вопросы
Предмет: Литература,
автор: max1039
Предмет: История,
автор: Аноним
Предмет: Геометрия,
автор: sutulayasobaka83
Предмет: Математика,
автор: ttttttttttttttt
Предмет: Физика,
автор: dashadeikun