Создайте программу на языке Паскаль, которая возводит - вопрос №11589224 от polsedegova 11.10.2021 18:02

Question

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

polsedegova · 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....