Дано три будь-яких числа. Знайти обуток тих, що кратні 3. ПРОГРАМА ПАСКАЛЬ

Question

Дано три будь-яких числа. Знайти обуток тих, що кратні 3.
ПРОГРАМА ПАСКАЛЬ

Comments

*Добуток

Answer 1

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)then
readln (a,s,d);
end.