Ответы на вопрос:
Program lol; var a: integer; begin readln(a); if(a mod 2=0) then writeln('да') else write('нет'); end.
Популярно: Информатика
-
Реализовать алгоритм на языке Тurbo Pascal. Даны три числа а,в,с. Вычислить х1=а2-в2-с2,...
seregaushakov1307.02.2022 15:31 -
1) 10001+1111 2) 10111-1111 3) 1010*101 4) 10010+1011 5) 10011-1001 6) 1100*110...
FarmFarm21.06.2020 10:18 -
Побудуйте математичну модель і створіть проєкт для обчислення значен- ня виразу:...
Виктория4111631.12.2020 02:24 -
вопрос моего исключения с шараги на тракториста...
асланбек1301.10.2021 22:27 -
Сколько лет Windows XP?...
645247682665730.08.2022 10:04 -
нужны координаты на имя соня в исполнителе чертежник...
Hjlüüä08.10.2020 18:57 -
Тема: Сумма элементов одномерного массива Написать программу нахождения суммы...
mrartemartem131.01.2023 06:50 -
Как на паскаль abc нарисоввть лодку с парусом?...
Лиза568503.04.2022 23:14 -
Сколько раз будет выполнен этот цикл? i: =2; while i 5 do begin writeln( ! );...
3asyavasilkova303.03.2022 08:11 -
Что такое форматирование ( в частности для жесткого диска или дискеты) и его...
erka11221.01.2021 02:46