1. Информатика
  2. Дано целое двузначное число.

Дано целое двузначное число. верно ли, что обе его цифры четные? (ответ вывести в форме «да» либо «нет»).

Fkrfi134F Fkrfi134F    3   05.07.2019 07:10    6

Ответы
жека569 жека569  28.07.2020 20:09
Var
a:integer;
begin
write('a=');
readln(a);
if (a mod 2 = 0) and ((a div 10) mod 2 = 0) then
writeln('Да')
else
writeln('Нет')
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
danilkarev201 danilkarev201  22.08.2019 10:00
Даны целые числа а1, an. вывести на печать только те числа, для которых выполняется сделать как можно проще и понятней)) за понимание)...
DaniilTatarinov DaniilTatarinov  22.08.2019 10:00
7. вводится массив целых чисел размером в 10 ячеек случайными целыми цифрами в диапазоне от 1 до 100. найти сумму элементов массива и вывести на монитор 8. вводится массив целых...
vaxyl vaxyl  25.05.2020 01:27
Определите значение переменной с после выполнения фрагмента программы:a:=5;b:=1;if a b then c:=a else c:=b;​...
GreenBaguette GreenBaguette  25.05.2020 00:47
В результате выполнения фрагмента программы:s:=0;n:=1;while n =5 dobegins:=s+n;n:=n+1;end;writeln ( s= , s);переменная s примет значение:156205​...
vitaming vitaming  25.05.2020 00:47
Цикл с предусловием – это цикл, который:Повторяется до тех пор, пока условие ложноеПовторяется до тех пор, пока условие верноеПовторяется определенное число раз​...
DenisPalashyk DenisPalashyk  25.05.2020 01:27
Определите значение переменной с после выполнения фрагмента программы:a:=2;b:=6;if a b then c:=a+1 else c:=b-1;​...
bocmanlera bocmanlera  25.05.2020 00:41
Определите значения переменных s i s:=0;i:=5;while i 0 dobegins:=s+i;i:=i-1;end;s = 15, i = 0s = 15, i = 5s = 0, i = -1s = 5, i = 0​...
Алина051206 Алина051206  25.05.2020 01:27
Выберите строку, в которой допущена ошибка.if a =b then write( Да ) else write( Нет );if a b then c=a else c=b;if a b then write( Yes ) else write( No );if a=b then c:=a else c:=2*а;​...
asyanikolaeva0p08iun asyanikolaeva0p08iun  25.05.2020 01:27
Выберите выражение соответствующее условию а и b отрицательные. a,b 0(a 0), (b 0)(a 0) and (b 0)a and b 0​...
Goshavasa Goshavasa  25.05.2020 01:27
Определите значение переменной a после выполнения фрагмента программы:a:=10;if a 5 then a:=a+12 else a:=a-7;​...

Популярные вопросы