Var a, b, c: integer;
begin
read(a, b, c);
if (a mod 2 = 0) or (b mod 2 = 0) or (c mod 2 = 0)
then write('Есть')
else write('Нет');
end.
Слуховая информация органами уши, вкусовая органами язык, осязательная органами кожа, обонятельная органами нос
Безусловный цикл - цикл, выход из которого в программе не предусмотрен.
Цикл с предусловием - цикл, условие которого проверяется перед выполнением тела цикла. С постусловием - проверяется после.