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

Question

Информатика

Александр

7 декабря, 12:05

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

+3

Ответы (2)

Знаете ответ?

Даня · Answer 1

Program p1;

var a: real;

begin

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

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

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

end.

Венура · Answer 2

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.