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

Question

Правдина

14 декабря, 10:46

+5

Ответы (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.