Предмет: Информатика,
автор: SuperSus
Составить программу на языке pascal abc. По алгоритму (Алгоритм приложен)
Приложения:
Ответы
Автор ответа:
0
var a,x,y:real;
procedure st(a,x:real; var y:real);
begin
end;
begin
write('a, x, y: ');
readln(a,x,y);
if x=0
then y:=1
else if x>0 then st(a,x,y) else st(1/a,-x,y);
writeln('y = ',y);
end.
Пример:
a, x, y: 1 2 3
y = 3
procedure st(a,x:real; var y:real);
begin
end;
begin
write('a, x, y: ');
readln(a,x,y);
if x=0
then y:=1
else if x>0 then st(a,x,y) else st(1/a,-x,y);
writeln('y = ',y);
end.
Пример:
a, x, y: 1 2 3
y = 3
Автор ответа:
0
Благодарю
Похожие вопросы
Предмет: Литература,
автор: cherepanovaanna1119
Предмет: Математика,
автор: gulumbayramova1982
Предмет: Другие предметы,
автор: bboy01824
Предмет: Геометрия,
автор: iralantsova