Дано число не равное нулю, если оно четное возвести в квадрат если нет - в четвертую степень. На языке паскаль решить, желательно с блок-схемой. Помогите!
помогите, без блок схемы пожалуйста
Program m; // начало проги с названием m var // задаем переменные a:integer; // переменная а begin // начало самого кода write('input a'); // выводим на экран надпись input a read(a); // записываем в а число, введенное с клавиатуры if a>0 then a:=a*a else a:=a*a*a; // если а>0, тогда записываем в "а" - "а квадрат", иначе "а куб" writeln(a); // выводим на экран а end. // завершение Попробуй это, надеюсь поможет.
ну помогите кто-нибудь уже)
задача
Без блок схемы
...