Составить программу, которая определяет является ли веденное целое число положительным и выводит на экран соответствующее сообщение : ''да'' либо ''нет''

Question

Денисыч

21 декабря, 00:16

+4

Ответы (1)

Знаете ответ на вопрос?

Марюня · Answer 1

var

a: real;

begin

writeln ('введи произвольное число') ;

read (a) ;

if a>0 then writeln ('да') ;

f a<=0 then writeln ('нет') ;

end.