Var a,b,c:integer;
Begin
writeln('Введите три числа:');
readln(a);
readln(b);
readln(c);
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
writeln('(',a,'+',b,'+',c,')','/3=',(a+b+c)/3:4:2);
End.
Ответ на задание:
Можно выбрать любую точку координатной плоскости в качестве одной из вершин. Один из четырех возможных вариантов программы: Использовать Чертежник
Поднять перо
Сместиться в точку (4,4)
Опустить перо
Сместиться на вектор (0,4)
Сместиться на вектор (3, 0)
Сместиться на вектор (0, -4)
Сместиться на вектор (-3, 0)