Ввести число вывести "Мяу" если оно отрицательное и вывести "Гав" если оно положительное.

Question

Информатика

Татуся

18 февраля, 12:19

Ввести число вывести "Мяу" если оно отрицательное и вывести "Гав" если оно положительное.

+3

Ответы (1)

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

Иулиан · Answer 1

Program test;

var

a:integer;

begin

writeln ('Введите число: ') ;

readln (a) ;

if a>0 then

writeln ('Гав ')

else

writeln ('Мяу ') ;

readln;

end.