определить является ли число N чётным двузначным числом в паскале

1

Ответы и объяснения

2012-03-16T20:28:50+04:00

program E9;

var a: integer;

begin

writeln('vvedite chislo');

readln(a);

if a>9 then writeln('dvuznachnoe') else writeln('odnoznachnoe');

if a mod 2=0 then writeln('chetnoe') else writeln('nechetnoe');

readln;

end.

 

Если вы пишете программы в FreePaskal, то readln можно не писать.