Вычислить а=к + 40, если значение к больше 15, но меньше 25. при других значениях к вычислить в=м+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 (k<15) and (k>25) then b:=m+1; writeln(b); readln; end.
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 (k<15) and (k>25) then
b:=m+1;
writeln(b);
readln;
end.