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

2

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

2014-02-10T11:41:58+04:00
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.