Дан интервал чисел [1, n]. составить программу, которая чётные числа из этого интервала заменит на соответствующие кубы этих чисел, а все нечётные числа

Question

Информатика: Дан интервал чисел [1, n]. составить программу, которая чётные числа из этого интервала заменит на соответствующие кубы этих чисел, а все нечётные числа из этого интервала - заменит значением -1.

aminatikhonova12 · Answer

Program s;vara,b:integer;beginreadln(b);for a:=1 to b doif a mod 2 = 0 then writeln(a*a) else writeln( -1 );end....

Популярные вопросы