Написать программку в паскале . Если число чётные то делим на

Question

Написать программку в паскале .
Если число чётные то делим на два ,если нечётное то возвести в квадрат .

1 ответ

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Кира Десятская · Answer 1 · 2019-09-18 13:29:16+3:00

Кира Десятская 2019-09-18 13:29:16

var a: integer;

begin

readln(a);

if a mod 2=0 then writeln (a/2) else writeln (sqr(a));

end.

Никита 2019-09-18 13:31:36

Мыслю, у Вас ошибка. Так как число необходимо возвести в квадрат в случае, если оно нечётное, то необходимо написать else weriteln (a*a)

Arinka Shtahnovskaja 2019-09-18 13:35:19

Также "else..." необходимо писать не с новейшей строчки

Танечка 2019-09-18 13:42:22

Также нет наименования программки. Остальное всё образцово. Если это я что-то не так понял, скажите.

Шапан Алена 2019-09-18 13:45:36

А, понятно, буду знать про sqr. Спасибо