Дано три будь-яких числа. Знайти обуток тих, що кратні 3. ПРОГРАМА ПАСКАЛЬ
Дано три будь-яких числа. Знайти обуток тих, що кратні 3.
ПРОГРАМА ПАСКАЛЬ
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы