На обработку поступает последовательность из четырёх целых чисел. нужно написать программу, которая выводит на экран количество неотрицательных чисел последовательности и их произведение. если неотрицательных чисел нет, требуется вывести на экран «no». известно, что вводимые числа по абсолютной величине не превышают 10. программист написал программу неправильно, надо найти ошибку var p,i,x,count: integer; begin count : = 0; p : = 0; for i : = 1 to 4 do begin read (x); if x > = 0 then begin p : = p*x; count : = count+1 end end; if count > 0 then begin writeln(х); writeln(p); end else writeln('no') end
Ronni05
3
30.05.2019 13:04
8
Другие вопросы по теме Информатика
boss110
15.09.2019 00:00
TinoShtrydenberg
15.09.2019 00:00
lenamotinaozavac
08.08.2019 03:10
дильназСпецназ
08.08.2019 03:10
techno290696
08.08.2019 03:10
Тер32
18.05.2020 19:06
JoyGames14982
18.05.2020 19:07
Tililinka
18.05.2020 19:08
Популярные вопросы
- Указать значение создания казахских комитетов для продвижения национальной государственности...
2 - По графикам движения определить: А) проекцию скорости каждого тела; Б) расстояние...
1 - 3. Масса одной молекулы воды 3.10-26 кг. Сколько молекул содержится в 5 см воды...
3 - Придумать концовку притче о блудном сыне...
1 - Докажите, что четырехугольник ABCD с вершинами в точках A(1;4;3), B(2;3;5), C(2;5;1),...
2 - Два угла квадрата со стороной a выступают за пределы полосы ширины a с параллельными...
2 - На прямій точка В лежить між точками А і С які з відрізків із кінцями...
1 - В чём суть проблемы ограниченности Приведите пять примеров...
2 - Access Workbook 3Сделать 2 упражнения...
1 - Неметаллические свойства увеличиваются в ряду: 1. Si - P - S2. O - S - Se3. O -...
2
var p,i,x,count: integer;
begin
count := 0;
p := 0 ;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(х );
writeln(p);
end
else
writeln('NO')
end
Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программыvar p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.