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

Free Pascal

Question

Кириллыч

23 января, 15:31

+3

Ответы (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