Var y,a,x:real;
begin;
readln(x);
readln(a);
if x=0 then exit;
y:=sqr(a)+5*x-8/(4*x)-8+(6*x/2);
writeln(y);
end.
Var a,b,h,x,x1,x2:real;
function F(x:real):real;
begin
F:=cos(x)/sin(x)+1;
end;
begin
writeln('Функция: F(x)=ctgx+1');
write('Введите крайние точки отрезка: '); readln(x1,x2);
write('Введите шаг: '); readln(h);
writeln('| x | F(x) |');
writeln('_________________');
if x1>x2 then begin
a:=x2; b:=x1; end
else begin
a:=x1; b:=x2; end;
x:=a;
while x<=b do
begin
writeln('|',x:7:3,'|',f(x):7:3,'|');
x:=x+h;
end;
end.
11
ПОТОМУ ЧТО 1100 УБИРАЕМ 00 ПОЛУЧАЕТСЯ 11
Графическое изображение значения ряда данных в диаграмме
Ну зависит от языка,в паскале - <span>read и readln и вывода write и writeln</span>