Предмет: Информатика,
автор: Аноним
Помогите с информатикой! Срочно! Нужно решить задачу в паскале с ветвлением - составить программу определения четных (нечетных) чисел.
Ответы
Автор ответа:
0
Var a:Integer;
Begin
Write('Введите число');
Read(a);
If a mod 2 = 0 Then Write('Число четное')
Else WriteLn('Число не четное');
end.
Begin
Write('Введите число');
Read(a);
If a mod 2 = 0 Then Write('Число четное')
Else WriteLn('Число не четное');
end.
Похожие вопросы
Предмет: Математика,
автор: adalyatkharieva13
Предмет: Английский язык,
автор: coctailstandoff
Предмет: Химия,
автор: eliseev11313
Предмет: Математика,
автор: Альбинуська234