Найти произведение чисел, кратных трем вводимых с клавиатуры

@boris370 · Регистрация: 11.12.2009

Задали три задачи. Две решил, а эта никак не получается:"Найти произведение чисел кратных трем вводимых с клавиатуры". Подскажите: хочу разобраться.

@SuPeR XaKer · 10.04.2011, 10:49

Ничего сложного:

Pascal

readln(n);
pr:=1;
for i:=1 to n do
begin
 write(i,'-e число:=');
 readln(a);
 if a mod 3=0 then pr:=pr*a
end;
write(pr);

@Dekio · 10.04.2011, 10:50

Pascal

pr:=1; num:=1;
while num<>0 do
begin
pr:=pr*num;
readln(num);
end;

Решение

@boris370 -5 / 1 / 0 Регистрация: 11.12.2009 Сообщений: 51
		1
	Найти произведение чисел, кратных трем вводимых с клавиатуры 10.04.2011, 10:45. Показов 5636. Ответов 2 Метки нет (Все метки) Задали три задачи. Две решил, а эта никак не получается:"Найти произведение чисел кратных трем вводимых с клавиатуры". Подскажите: хочу разобраться. 0

Опции темы