Program 1;
var y,x,a,b:integer;
begin
writeln('введите x,a,b');
readln(x,a,b);
y:=(sqrt(x-a*b))/(1-sqr(x))
writeln(y);
readln;
end.
Вот программа, а на паскале:
y:=(sqrt(x-a*b))/(1-sqr(x))
Надеюсь на спасибо и лучший ответ:)
var
a: array[1..10] of real;
b,c,d,f: integer;
begin
f:=1;
writeln('Введите 10 чисел');
for d:=1 to 10 do
begin
readln(a[f]);
if a[f]>0 then
c:=c+1;
if a[f]<0 then
b:=b+1;
f:=f+1;
end;
writeln('Положительных чисел ',' ',c);
writeln('Отрицательных чисел ',' ',b);
end.
Ширина ячейки мала для отображения числа, необходимо увеличить ширину ячейки
Выполняется условие b > a, значит выполняется then.
S:=2
S:= 2 + 4
S:= 6