Писал уже:
var input, num, nulls, positive, negative, i: integer;
begin
write('Введите кол-во чисел: ');
readln(input);
for i := 1 to input do begin
write('Введите число номером ', i, ': ');
readln(num); if num = 0 then inc(nulls, 1);
//if num < 0 then inc(negative, 1);
//if num > 0 then inc(positive, 1);
end;
writeln('Кол-во нулей: ', nulls);
//writeln('Кол-во положительных чисел: ', positive)
//writeln('Кол-во отрицательных чисел: ', negative);
<span>end.</span>
Ответ:
счётчик (d) будет принимать такие значения:
a
a + 1
a + 2
.
.
a + (n - 1)
a + n
Объяснение:
Эти значения зависят от значений переменных a, n.
Конкретные значения можно вывести на экран, составив и выполнив следующую программу:
алг
нач
цел d,a,n
вывод 'введите значение a: '
ввод a
вывод 'введите значение n: '
ввод n
нц для d от a до a+n
вывод d,нс
кц
кон
Var
i: integer;
x: real;
begin
x := 0;
i := 0;
while i < 10 do
begin
inc(i);
x := x + 1/i;
end;
writeln(x);
end.