Вычислить значение функции y=a/x+b при x=1, 2, 3, 10 (a, b вводятся с клавиатуры)
Вычислить значение функции y=a/x+b при x=1, 2, 3, 10 (a, b вводятся с клавиатуры)
Гость
Ответ(ы) на вопрос:
ГостьПрограмма на языке Pascal 3.0
program Z_1;
uses crt;
var a,x,b:integer;
y:real;
begin
writeln('Введите a,b,x'); readln(a,b,x);{x тоже нужно ввести, так как нет никакой последовательности в этих четырех цифрах и циклом не получится}
y:=a/(x+b);
writeln(y);
end.
Гостьvar a,b,x:integer;
begin
writeln('Введите A, B');
read(a,b);
for x := 1 to 10 do
writeln('Для x=',x,', y=',a/x+b);
end.
Не нашли ответ?
Похожие вопросы