Ответы
Ответ дал:
1
program one;
var
i: Integer; //объявляем переменную
begin
ReadLn(i); //считываем с консоли число
if i mod 2 = 0 then //если число делится без остатка на 2
WriteLn('Четное') //то выводим "Четное"
else
WriteLn('Нечетное'); //иначе выводим "Нечетное"
end.
Блок-схему смотри во вложении.
Приложения:
![](https://st.uroker.com/files/a41/a412a51a73b1c30ed0f4d1871d56dfdd.jpg)
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
7 лет назад