Question

вычислить значение функции y=a/x+b при x=1, 2, 3, 10 (a, b вводятся с клавиатуры)

Answer 1

Программа на языке 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.

Answer 2

1) Что это за язык Pascal 3.0 ? 2) В здании сказано, что с клавиатуры вводятся a,b. 3) Программа вычисляет у только для одного значения х

Answer 3

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.