Дано целое число, если оно делиться на 3 без остатка то увеличить его на 1;в противном случае уменьшить его на 2.
На паскале
var
x: longint;
begin
write(Введите число );
readln(x);
if x mod 3 = 0 then //Если х делится на 3, то...
x := x + 1 //Увеличиваем х на 1
else //В противном случае ....
x := x - 2; // Уменьшаем на 2
writeln(Результат: ,x); //Вывод полученого числа
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
