Паскаль
Даны 3 числа a, b, c. Если a кратно b, то найти сумму всех чисел, если не кратно, то произведение.
Ответы
Ответ дал:
0
Ответ:
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.
Вас заинтересует
3 месяца назад
3 месяца назад
5 месяцев назад
1 год назад
1 год назад
7 лет назад
7 лет назад