Информатика, вопрос задал annaaaaaa1112 , 10 лет назад

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

Ответы на вопрос

Ответил kefa
0

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.

Новые вопросы