Ответы
Гость //PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
begin
var (S,M):=ReadInteger2('Введите возвраст Саши и Маши->');
Println(S>M?'Саша старше':'Маша старше');
end.
Пример(1):
Введите возвраст Саши и Маши-> 12 14
Маша старше
Пример(2):
Введите возвраст Саши и Маши-> 18 15
Саша старше
3 комментария:
Номер 6 уточните что сделать, то немного не понятно с чего выбирать
Составить программу вычисления корней квадратного уравнения по данным значениям его коэффициентов
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.
Номер 6 уточните что сделать, то немного не понятно с чего выбирать
Составить программу вычисления корней квадратного уравнения по данным значениям его коэффициентов
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. Похожие вопросы
Информатика
Вход мишура а выход? ...
Информатика
Виды и способы соеденения проводов...
Список предметов
