Вычислить А=К + 40, если значение К больше 15, но меньше 25. При других значениях К вычислить В=М+1. значение М задается константой, К вводится с клавиатуры

Question

Информатика

Игнатий

5 февраля, 10:22

Вычислить А=К + 40, если значение К больше 15, но меньше 25. При других значениях К вычислить В=М+1. значение М задается константой, К вводится с клавиатуры

+4

Ответы (1)

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

Мавродий · Answer 1

const m=10;

var a, b, k:integer;

begin

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

readln (k) ;

if (k>15) and (k<25) then

a:=k+40; writeln (a) else

if (k25) then

b:=m+1;

writeln (b) ;

readln;

end.