Question

В этой задаче использовать case. Дано число. Если остаток от деления на 3 у него равен 1, то утроить, если остатка нет-учетверить.

Answer 1

спасибо ))))))))))))))

Answer 2

Program dz;
var a,b : integer ;
Begin
writeln("Ввели число");
readln(a);
b:=a mod 3
case b of
if b = 1 then
b:=b*3;
else
b:=b*4;
end;
end.