Составьте программу которая по введёному числу с клавиатуры возведёт его в квадрат если это данное число будет чётным (пример Program p1, writeln

Составьте программу которая по введёному числу с клавиатуры возведёт его в квадрат если это данное число будет чётным (пример Program p1, writeln

  • Program p1;

    var a: real;

    begin

    Writeln(Vvedite chislo); Read(a); //Считаываем

    If a mod 2=0 then writeln(a*a);

    //если остаток от делания на 2= 0, тогда пишем возведенное в квадрат число

    end.

  • Program n1;
    Uses CRT;
    Var x: integer;
    begin
    ClrScr;
    Writeln(Vvedite chislo);
    Readln(x);
    If x mod 2=0 then writeln(kvadrat =,x*x)
    else writeln(nechetnoye);
    readln
    end.

  • Внимание, только СЕГОДНЯ!
    Ссылка на основную публикацию