Склавиатуры вводятся произвольные числа необходимо вычислить разность всех введенных чисел условием выхода из цикла является произведение чисел больше 1000 написать программу на языке паскаль
ALexus67
2
29.09.2019 06:30
0
Другие вопросы по теме Информатика
egorshlyahov12p0dhm9
25.11.2021 12:04
Ірина428
25.11.2021 12:04
DashaKim117
04.05.2021 12:46
ROMA706
04.05.2021 12:46
vovakur2006
04.05.2021 12:47
Selid
04.05.2021 12:47
fafab232
30.11.2021 20:58
СомСоми
24.08.2019 19:30
olleandro
24.08.2019 19:30
Популярные вопросы
- Ойраты, джунгары, каракалпаки, калмыки, исключите лишнее, объясните причину исключения...
3 - Автобус в первый час км, во второй - 24 км, а в третий 42 км . какую част всего...
1 - Вmicrosoft excel указание на отдельную ячейку таблицы, составленное из обозначения...
3 - Четвертый лишний докажи почему слово «лишнее». 1)атырау, актау, кокшетау, астана....
2 - Из 40м синей и 46 м жёлтой ткани решили сшить двухцветные палатки.на палатку расходуется...
3 - Реши уравнения х+38=113 5а+2а=35 (y-3)*(4-у)=0 b*b+9=34...
1 - Охарактеризуйте основные типы питания организмов...
3 - Решите уровнение только быстро 1 минута осталась х-4/5х=4.5...
3 - Напишите название реакции, ch3-ch2-c(ch3)=ch-c(ch3)(ch3)-ch3...
3 - Представьте натуральные числа: 9,11,13,17: а виде неправельной дроби со знаминателем...
3
Если я правильно понял задание, то вот:
var d, p, n:Real;
begin
d := 0; p:= 1;
while (p <= 1000) do begin
read(n);
if (n >0) then d := d-n;
p := p*n;
end
writeln();
writeln('Разность: ', d);
end.