Помогите с информатикой! Срочно! Нужно решить задачу в паскале с ветвлением —…

Question

48

Помогите с информатикой! Срочно! Нужно решить задачу в паскале с ветвлением — составить программу определения четных (нечетных) чисел.

в избранное ссылка

Знаете ответ?

zondar · Accepted Answer

70

zondar

29 января 2024

Var a: Integer; Begin Write ('Введите число'); Read (a); If a mod 2=0 Then Write ('Число четное') Else WriteLn ('Число не четное'); end.

комментировать

в избранное ссылка отблагодарить