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