1) Начало
2) Собери сломанные карандаши
3) Возьми точилку
4)Возьми сломанные карандаши
5) Остались сломанные карандаши?
5а) нет
6) Конец
Если не ошибаюсь, то (-3;-8)
Нужно сложить все иксы вместе и все игрики(х; у), а т.к. нужно начальную точку узнать, то меняем знаки на противоположные.
Привет!
Это делается так:
------------------------------
Щелкнуть правой кнопкой мыши область диаграммы или область построения, нажать кнопку "Изменить тип диаграммы" ⇒ В диалоговом окне "Изменение типа диаграммы" выбрать тип.
ИЛИ
Чтобы изменить тип диаграммы, щелкнуть область диаграммы или область построения. Появятся инструменты для работы с диаграммами. ⇒ Чтобы изменить тип диаграммы для ряда данных, щелкнуть его. ⇒ Откроется панель "Работа с диаграммами" с дополнительными вкладками "Конструктор", "Макет" и "Формат". ⇒ На вкладке "Конструктор" в группе "Тип" нажать кнопку "Изменить тип диаграммы". ⇒ В диалоговом окне "Изменение типа диаграммы" выбрать тип.
------------------------------
Вот так. Пока!
Var
a,b,c:integer;
Begin
Write('Введите три числа: ');ReadLn(a,b,c);
if b<0 then Write(a,b)
else Write(a,'+',b);
if c<0 then Write(c,' = ',a+b+c)
else Write('+',c,' = ',a+b+c);
WriteLn;
if b<0 then Write(a,'*(',b,')')
else Write(a,'*',b);
if c<0 then Write('*(',c,') = ',a*b*c)
else Write('*',c,' = ',a*b*c);
WriteLn;
if b<0 then Write('(',a,b)
else Write('(',a,'+',b);
if c<0 then Write(c,')/3 = ',(a+b+c)/3)
else Write('+',c,')/3 = ',(a+b+c)/3);
End.
1)1100011 2
2)22 10
3)10110111 2
4)127 10
5)1000000000 2
