Предмет: Информатика,
автор: KOTVASILY111111
Составить программу, считывает 2 числа, если сумма этих чисел кратно 3, то результат уменьшает в 3 раза, в противном случае оставляет без изменений.
Ответы
Автор ответа:
0
var
a, b:integer;
begin
Readln(a,b);
if (a+b)mod 3 = 0 then
Writeln((a+b)/3)
else
Writeln(a+b);
end.
Пример:
12 9
7
a, b:integer;
begin
Readln(a,b);
if (a+b)mod 3 = 0 then
Writeln((a+b)/3)
else
Writeln(a+b);
end.
Пример:
12 9
7
Интересные вопросы
Предмет: Музыка,
автор: vergesha08
Предмет: Математика,
автор: matemati4ka33
Предмет: Геометрия,
автор: pilel
Предмет: История,
автор: самат123
Предмет: Математика,
автор: iron1900