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.
I
. По принципам управления:
1. Одноранговые - не имеющие выделенного сервера. В которой функции управления поочередно передаются от одной рабочей станции к другой;
2. Многоранговые - это сеть, в состав которой входят один или несколько выделенных серверов. Остальные компьютеры такой сети (рабочие станции) выступают в роли клиентов.
II
. По соединения:
1. "Прямое соединение"- два персональных компьютера соединяются отрезком кабеля. Это позволяет одному компьютеров (ведущему) получить доступ к ресурсам другого (ведомого);
2. "Общая шина" - подключение компьютеров к одному кабелю;
3. "Звезда" - соединение через центральный узел;
4. "Кольцо" - последовательное соединение ПК по двум направлениям.
Написала,как могла проще!Ещё сложнее могу,мы такой уже писали!
2)41
3)125
Все просто )0)0