Question

помогите пожалуйста, задача в паскале: пользователь вводит целое число если это число не кратно 5 и при этом дфухзначное ,то умнодаем на на 2 ,если же это число трёхзначное ,чётное и при этом кратно 3 ,то поделить на 3 ,все остальные числа умножить на 4​

Answer 1

Ответ:

var n : Integer;

begin

 readln(n);

 if (n > 9) and (n < 100) and (n mod 5 <> 0) then

   writeln(n * 2)

 else if (n > 99) and (n < 1000) and (n mod 6 = 0) then

   writeln(n / 3)

 else

   writeln(n * 4);

end.

Объяснение: