Создайте программу на языке Паскаль, которая возводит - вопрос №11589558 от kirillarhipenc1 19.04.2021 10:52

Question

Информатика: Создайте программу на языке Паскаль, которая возводит нечётное число в квадрат, а чётное — в куб.

kirillarhipenc1 · Answer

Program abc; var a:integer; begin  Write( Введите число: );readln(a);  if (a mod 2 = 0) then a:=a*(sqr(a)) else a:=sqr(a);   Writeln(a);end....