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

bat9qee bat9qee    1   17.05.2019 10:10    0

Ответы
КотикПушистый109 КотикПушистый109  30.09.2020 19: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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика