Предмет: Информатика, автор: kwest99

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

Ответы

Автор ответа: Catania
0

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.

Похожие вопросы
Предмет: Информатика, автор: adiyashyndaulet
Предмет: Физика, автор: nekit460000000000