С клавиатуры вводятся 2 числа. Четные необходимо возвестив квадрат, а нечетные удвоить.

на языке pascal написать программу

Program z1;

Var x,y:integer;

Begin

___readln___(x);

Y:=x div___2__;

If y>0 then writeln(‘трехзначное’) else writeln(‘двузначное’);

end.

правильно ли составлена программа?

mynigga49    1   10.04.2020 18:23    0