ПОМОГИТЕ!!!!!!!!! 1)Составьте программу для вычисления Y=X, если X положительное число . 2)Составьте программу для вычисления объема куба со сторонами от 5 до 20

Вопрос школьника по предмету Информатика

ПОМОГИТЕ!!!!!!!!! 1)Составьте программу для вычисления Y=X, если X положительное число . 2)Составьте программу для вычисления объема куба со сторонами от 5 до 20

Ответ учителя по предмету Информатика

Var

X:real;

Begin

Write(‘X = ‘);ReadLn(X);

if X>0 then Write(‘Y = ‘,X)

End.

Var

a:integer;

Begin

For a:= 5 to 20 do

    WriteLn(‘V(‘,a,’) = ‘,a*a*a)

End.