Слишком коротко. Напишите минимум 20 символов, чтобы объяснить все.
Спасибо
Ответ дал: Гость
1)false (т.к. x> y)
2)true (x< y,x не равен y)
3)false(x> y)
4)true(т.к. x=y, x не равен y)
Ответ дал: Гость
решение для pascal abc
uses graphabc;
vara: integer; beginreadln(a); moveto(a,1); circle(a+a div 2,1,a div 4); lineto(a+a div 4,1); moveto(a+ (a div 4)*3,1); lineto (2*a,1); lineto(2*a,1+a); lineto (a,1+a); lineto (a,1); moveto (a,1+a); lineto (a-(a div 2),1+2*a); lineto(2*a+a div 2, 1+2*a); lineto(2*a,1+a); end.
Популярные вопросы