< >

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

Free Pascal

 

Ответы

Ответ дал: Gastiff
0

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.

Похожие вопросы
Русский язык
2 года назад
напишите  глухие  согласные
Русский язык
2 года назад
металл  составить  звуковую    схему
История
7 лет назад
Сравнить положение церкви при первых Романовых и Петре 1
Алгебра
7 лет назад
Помогите пожалуйста, срочно нужно). Знайти похідну. y = sqrt[3]{arctg : 9x - 5x}
Химия
10 лет назад
среди перечисленных ниже названий веществ найдите такое,в молекулах которого имеются атомы с тем же видом гибридизации электронных орбитайлей.как у углерода в молекуле ацетилена:бензол,хлорид бора
Геометрия
10 лет назад
Докажите, что если прямая параллельна каждой из двух пересекающихся плоскостей, то она параллельна линии их пересечения.
Алгебра
10 лет назад
Х в четвертой степени = 9. Найти х ?
Алгебра
10 лет назад
Постройте график функции y=sinx + |sinx|