Написать программу на языке программирования в среде разработки Pascal. Ввести три числа если они не кратные 3(каждое, но не одновременно), то напечатать их сумму, иначе их произведение​

khairullina05 khairullina05    2   16.04.2020 15:48    1

Ответы
Оарп Оарп  13.10.2020 09:19

Prgoram z1;

   var a,b,c:real;

begin

   read(a);

   read(b);

   read(c);

   if (a mod 3 <> 0) or (b mod 3 <> 0) or (c mod 3 <> 0) then write (a+b+c)

   else    write(a*b*c);

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика