Дано произвольное число К Если оно положительное то уменьшить на 6. в противном случае увеличить на 10

Question

Сакердон

16 марта, 15:55

+3

Ответы (1)

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

Антония · Answer 1

Program primer1;

var k:integer;

begin

writeln ('введите K') ;

readln (k) ;

If k>0 then k: = k-6 else k: = k+10;

write (k) ;

End.