ПОМОГИТЕ!! ПАСКАЛЬ! дано одно целое число. определить: а) является ли оно четным. б) делится ли оно на 13

1

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

  • kefa
  • главный мозг
2013-05-08T07:01:12+00:00

var
a:integer;
begin
readln (a);
if a mod 2 =0
then writeln ('Четное')
else writeln ('Нечетное');
if a mod 13=0
then writeln ('делится на 13')
else writeln ('не делится на 13')
end.