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

Question

Информатика

Матвеич

8 ноября, 20:54

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

+3

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