Question

РЕШИТЕ КТО ЧТО СМОЖЕТ! ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО! информатика 10 кл.
1. Задана сторона a равностороннего треугольника. Вычислите высоту треугольника и его площадь.
2.Дано действительное число a. Не пользуясь никакими другими операциями кроме умножения, получить a в 6 степени  за три операции.
3. Задано целое число.  Определить положительное оно или отрицательное, и четное или не четное?
4. Дано три числа x, y, z. Вычислить сумму только положительных чисел из трех данных.

Answer 1

4)
begin
    read(x, y, z);
    if x>0 then sum:=sum+x;
    if y>0 then sum:=sum+y;
    if z>0 then sum:=sum+z;
    writeln(sum);
end.