Предмет: Информатика,
автор: fanisfanis99
Паскаль,братцы пожалуйста помогите((
Приложения:
Ответы
Автор ответа:
0
program z3;
var y:real; x:integer ;
begin
writeln('Введите X');
readln(x);
if x>=10 then
y:=sqrt((x-5)/2) else
y:=(x-5)/2;
writeln('При x = ',x ,' y= ',y:4:2);
readln
end.
var y:real; x:integer ;
begin
writeln('Введите X');
readln(x);
if x>=10 then
y:=sqrt((x-5)/2) else
y:=(x-5)/2;
writeln('При x = ',x ,' y= ',y:4:2);
readln
end.
Похожие вопросы
Предмет: Литература,
автор: artatr2018
Предмет: Алгебра,
автор: yumamatsudaarz
Предмет: Русский язык,
автор: comondor10
Предмет: Химия,
автор: sasha1310
Предмет: Математика,
автор: Аноним