Решение задач на языке Паскаль по теме "Условный оператор if"

Решение задач

Условный оператор

if then begin

{что делать, если условие верно}

end

else begin

{что делать, если условие неверно}

end;

10) and (xthen x:=x-10; write('X = ',x); end. " width="640"

Задача №1. Дано число X. Уменьшить его на 10, если число находится в интервале (10;100] входные данные 90 выходные данные 80

program if17;

var x:real;

begin

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

read(x);

if ((x 10) and (x

then x:=x-10;

write('X = ',x);

end.

99) and (ythen y:=y-26; write('Y = ',y); end. " width="640"

Задача №2. Дано натуральное число Y. Уменьшить его на 26, если число трехзначное.

program if19;

var y:integer;

begin

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

read(y);

if ((y 99) and (y

then y:=y-26;

write('Y = ',y);

end.

Задача №23. Для данного вещественного х найти значение у=2х+4, если х

program if23;

var x,y:integer;

begin

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

read(x);

if x

write('Y = ',y);

end.