помогите пожалуйста, задача в паскале: пользователь вводит целое число если это число не кратно 5 и при этом дфухзначное ,то умнодаем на на 2 ,если же это число трёхзначное ,чётное и при этом кратно 3 ,то поделить на 3 ,все остальные числа умножить на 4
Ответы
Ответ дал:
0
Ответ:
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.
Объяснение:
Похожие вопросы
1 год назад
1 год назад
2 года назад
7 лет назад
9 лет назад