Question

Составить простую программу в Паскаль
1.Дано число, если оно четное то возвести в квадрат, если нет то возвести в куб.
2. Вводится 4 числа, проверить равны ли они если да то суммировать их, если нет то ничего не выводить.

Answer 1

Вот решение!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

4b671329e6ad06cb57f2d4cbd978e1dd.pas

12823f8365a611df79fd134b005b9376.pas

Answer 2

1.if (a mod 2)=o then write(a*a)
else write(a*a*a);

4b671329e6ad06cb57f2d4cbd978e1dd.pas

12823f8365a611df79fd134b005b9376.pas