Question

Напишите пожалуйста программу на языке Паскаль:

Дано число. Если оно кратно 3, то увеличить его на 6, в противном случае обнулить.

Answer 1

program blunt;

var x:word;

begin

write('Введите целое число = ');

readln(x);

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

writeln('Результат = ',x);

end.

Answer 2

uses crt;

var x:integer;
begin
write('Число = ');
readln(x);
if x mod 3 =0 then x:=x+6 else x:=0;
writeln(x);

readkey;

end.