30 баллов
Составьте программу для нахождения суммы трёх чисел, если хотя бы одно из них кратно 3, иначе модуль разности этих чисел.
Составьте программу для нахождения суммы трёх чисел, если хотя бы одно из них кратно 3, иначе модуль разности этих чисел.
More Questions From This User See All
Answers & Comments
var a,b,c:integer;
begin
read (a,b,c);
if (a mod 3 = 0) or (b mod 3 = 0) or (c mod 3 = 0) then write (a+b+c)
else write (abs(a-b-c))
end.