Безотлагательно. Номер 6 и 7. Информатика 9 класс.

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
var (S,M):=ReadInteger2('Введите возвраст Саши и Маши-gt;');
Println(Sgt;M?'Саша ветше':'Маша старше');
end.

Пример(1):
Введите возвраст Саши и Маши-gt; 12 14
Маша старше

Пример(2):
Введите возвраст Саши и Маши-gt; 18 15
Саша ветше

Эвелина Цунц 2019-04-07 21:50:56

Номер 6 уточните что сделать, то немножко не понятно с чего избирать

Жемальдинова Софья 2019-04-07 21:56:38

Составить программу вычисления корней квадратного уравнения по данным значениям его коэффициентов

Irina Petjushina 2019-04-07 22:02:35

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 и 7. Информатика 9 класс.

Добро пожаловать!