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

Free Pascal

Question

Дигна

9 августа, 06:11

+5

Ответы (1)

Знаете ответ?

Котя · Answer 1

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.

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