Составить программу которая вводит с клавиатуры и умножает числа до тех пор пока протизведение не превысит 1000 .вывести на экран произведение
16вопрос
3
31.08.2019 12:50
0
Другие вопросы по теме Информатика
Sofia2819
05.06.2019 20:40
миланка20051
09.07.2019 11:20
Сашакозлов13лет
23.08.2019 20:40
fpu51810
28.09.2021 22:51
1234567890Плюша
28.09.2021 22:51
elizabethniall
28.09.2021 22:51
nugumanovsalavp092yo
28.09.2021 22:51
Васютка3333
28.09.2021 22:51
Julia77707
28.09.2021 22:50
Популярные вопросы
- Доведить що якби вись земли не була нахилена на наший планети не видбувалася...
2 - Нужна 15 составьте слово из букв пеньлеса сонрота ровпоза...
1 - Сочинение по за что я люблю новый год ?...
2 - Масса стола 18 кг. поверхность соприкосновения с полом одной его ножки...
3 - Втреугольнике abc, ab=12, bc =9. отрезок mn параллелен bc, причем точка...
1 - Остановился перед забором - это и.п, р.п, д.п, в.п,т.п, п.п, какой из...
1 - Начертите на прямом луче точки н 1/2, е 3/10, к 4/5 , м 14/10 , на луче...
2 - Будь ласка придумати по два речення зі словами: новий рік,різдво та новорічна...
2 - Найти два последовательных натуральных числа произведение которых равно...
1 - Опираясь на и климатические карты выявите причины по которым а)на западе...
1
p, num: integer;
begin
p := 1;
while p <= 1000 do
begin
read(num);
p := p*num;
end;
writeln(p);
end.