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

Free Pascal

Question

Кириллыч

10 июля, 05:43

+4

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