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