1. Даны два числа. Если оба кратны 3, то первое уменьшить в два раза.

Free Pascal

1

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

2013-02-13T11:51:51+04:00

Var a,b: real;

begin

readln(a,b);

If (a mod 3=0) and (b mod 3=0) then a:=a/2;

writeln(a);

end.