Помогите пожалуйста!Дано число. Если оно кратно 3, то увеличить его на 6, в противном случае обнулить.Сделать в фри паскале.На английском языке.

1

Ответы и объяснения

2013-02-15T02:02:05+04:00

var

i:integer;
begin

Readln(i);
if i mod 3 = 0 then
i:=i+6
else
i:= 0;

Writeln(i);
readln;

end.