begin var (S,M):=ReadInteger2('Введите возвраст Саши и Маши->'); Println(S>M?'Саша старше':'Маша старше'); end.
Пример(1): Введите возвраст Саши и Маши-> 12 14 Маша старше
Пример(2): Введите возвраст Саши и Маши-> 18 15 Саша старше
0 votes Thanks 1
Giammy
Номер 6 уточните что сделать, то немного не понятно с чего выбирать
berezovskayave
Составить программу вычисления корней квадратного уравнения по данным значениям его коэффициентов
Giammy
begin var (a,b,c):=ReadInteger3('Введите коефициенты->'); var d:=sqr(b)-4*a*c; If d<0 then Println('Корней нет') else if d=0 then Println('x=',-b/(2*a)) else begin Println('x[1]=',(-b+sqrt(d))/(2*a)); Println('x[2]=',(-b-sqrt(d))/(2*a)); end; end.
Answers & Comments
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var (S,M):=ReadInteger2('Введите возвраст Саши и Маши->');
Println(S>M?'Саша старше':'Маша старше');
end.
Пример(1):
Введите возвраст Саши и Маши-> 12 14
Маша старше
Пример(2):
Введите возвраст Саши и Маши-> 18 15
Саша старше
var (a,b,c):=ReadInteger3('Введите коефициенты->');
var d:=sqr(b)-4*a*c;
If d<0
then Println('Корней нет')
else
if d=0
then Println('x=',-b/(2*a))
else begin
Println('x[1]=',(-b+sqrt(d))/(2*a));
Println('x[2]=',(-b-sqrt(d))/(2*a));
end;
end.