Дано три будь-яких числа. знайти обуток тих, що кратні 3. програма паскаль

Question

Информатика: Дано три будь-яких числа. знайти обуток тих, що кратні 3. програма паскаль

Venidiktova · Answer

Program ima;uaes crt;var a,s,d:integer;readln (a);readln(s);readln(d);if (a mod 3)and(s mod 3)and(d mod 3)thenreadln (a,s,d);end....