Задание:
Помогите пожалуйста! Дано число. Если оно кратно 3, то увеличить его на 6, в противном случае обнулить. Сделать в фри паскале. На английскомязыке.
Решение:
vari: integer; beginReadln (i); if i mod 3=0 then i: =i+6else i: =0; Writeln (i); readln; end.
Знаете другой ответ?