Var a,b,c,d:integer;
beginwriteln('введите десять чисел');
readln(a);
b:=1;
d:=0;
for c:=2 to 10 do
begin
readln(a);
if (a > 0) then b:=b*a;
if (a < 0) then d:=d+a;
end;
writeln('положительные ',b);
writeln('отрицательные ',d)
<span>end.</span>
Число не помещается в ячейке. Отформатируйте ячейку на автоподбор ширины или раздвиньте границы ячейки.
6.3
const
n = 5;
var
i,j : integer;
ch,zn : integer;
r : real;
begin
r := 0;
for i := 1 to n do
begin
ch := 0;
zn := 1;
for j := 1 to i do
begin
ch := ch + j;
zn := zn * j;
end;
//writeln (i,' ',ch,'/',zn);
r := r + ch/zn;
end;
writeln (r:3:2);<span>
end.</span>
Красный : входить в кабинет без разрешения учителя. Толкаться в дверях. Трогать разъёмы. Прикасаться к проводам питания. Приносить в класс компакт диски... Пытаться самостоятельно исправить проблемы. Включать игры которые не относятся к уроку. Работать грязными руками. Прикасаться к екрану или задней части монитора. Работать на компьютере во влажной одежде. Класть вещи на составные части компьютера. Удалять папки и файлы без разрешения учителя.
зеленый: все остальное.
2 задание
2, 3 , 1 , 4, 5, 7, 6, 8, 9.