Паскаль
Даны 3 числа a, b, c. Если a кратно b, то найти сумму всех чисел, если не кратно, то произведение.
Даны 3 числа a, b, c. Если a кратно b, то найти сумму всех чисел, если не кратно, то произведение.
More Questions From This User See All
Answers & Comments
Ответ:
var a,b,c: integer;
begin
writeln('Введите a,b,c: ');
readln(a,b,c);
if (a mod b = 0) then
writeln('a кратно b. Сумма всех чисел: ',a+b+c)
else
writeln('a не кратно b. Произведение всех чисел: ',a*b*c);
end.