Склавиатуры вводятся 17 чисел. найти произведение положительных чисел не делящихся на 17. сделать в турбо паскале, методом
гсооагвгв
1
28.05.2019 04:10
0
Другие вопросы по теме Информатика
адамчик2
30.03.2021 12:22
beresnevarseny
30.03.2021 12:18
Muminat20022005
11.06.2019 18:20
fedia228
11.06.2019 18:20
NeznaykaVshkole
11.06.2019 18:20
corbaov2018
11.06.2019 18:20
Максим555111
11.06.2019 18:20
Mary240106
11.06.2019 18:10
Популярные вопросы
- Сморфологических разбором слова: игрушку. я просто не поняла тему. 15...
2 - Для получения газообразного хлороводорода hci в промышленности водород...
1 - ♡♡♡может ли существовать абсолютно правовое государство и почему? порассуждайте...
1 - 90 за ! напишите 20 предложений о своей семье (мама,папа,младший брат)....
3 - Объясните почему если из 5-знамного числа вычесть его же но написанного...
2 - Первое слагаемое - 5, сума _ 15 чему равно втарое слагаемые...
3 - 1определите две причины великих открытий 2 какова причина информации...
3 - По завтра урок буду вопрос звучит так: как развивалось общество в каменном...
3 - Арина съела 20% всей пицы, а андрей 1,4 оставшейся пиццы. сколько процентов...
2 - Төмендегі тақырыптардың бірін таңдап, абай қунанбайұлы туралы айт. •абай...
1
var
x,i,p:integer;
begin
p:=1;
repeat
read(x);
if (x mod N <> 0) and (x > 0) then p:=p*x;
inc(i);
until i=N;
write(p);
end.