Составить схему к программе
program имя ;
uses crt;
var x : integer ;
begin
write ln (‘ введите число’);
read (x)
if mod 2=0 them write (‘четное’)
else write (‘нечетное’)
end.
!

    3   17.01.2020 19:27    0