Паскаль. составить программу введённого пользователем числа(целое или нет; положительное, отрицательное или нуль; чётное или нечётное)

163

403

Посмотреть ответы 2

Ответы на вопрос:

daryamoskovskay

Информатика

4,5(35 оценок)

var a: real; beginread(a); if (a mod 2=0) and(a< > 0) then write('четное'); if (a mod 2=0) and(a< > 0) then write('не четное'); if a=0 then write('нуль'); if a> 0 then write('положительное'); if a< 0 then write('отрицательное'); if a=0 then write('нуль'); end.