Предмет: Информатика,
автор: kavunesss
дано натуральное число.
а)Определить, есть ли оно четным
б)заканчивается ли оно на 7
Ответы
Автор ответа:
0
uses crt;
var a:integer;
begin
readln(a);
if (a mod 2 =0) then writeln('четное') else writeln('нечетное');
if (a mod 10=7) then writeln('оканчивается на 7') else writeln('не оканчивается на 7');
end.
var a:integer;
begin
readln(a);
if (a mod 2 =0) then writeln('четное') else writeln('нечетное');
if (a mod 10=7) then writeln('оканчивается на 7') else writeln('не оканчивается на 7');
end.
Интересные вопросы
Предмет: Английский язык,
автор: svotrina530
Предмет: Информатика,
автор: mmagicmmagicmm
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Алгебра,
автор: ritat