Var n, sum, p: integer;
begin
sum := 0;
p := 1;
repeat
write('Введите число для завершения программы введите 0000): ');
readln(n);
if n <> 0 then begin
if n >= 0 then sum := sum + n;
if n < 0 then p := p * n;
end
else writeln('ИТОГ');
writeln( 'Сумма положительных: ', sum, ' | Произведение отрицательных: ', p);
writeln();
until n = 0000;
<span>end.
Вроде так</span>
Это произведение
var p,i:integer;
begin
p:=1;
for i:=2 to 11 do
p;=p*i;
writeln (p);
end.
Это подсчёт i
var k,i:integer;
begin
k:=0;
for i:=2 to 11 do
k;=k+1i;
writeln (k);
end.
сумму не понятно чего?
Чтоб вырезать фотокравиий
<span>a:= 15; переменная а получает значение 15 (обозначим это так: 15 ⇒ a)
b:= (a/3)*a; (15/3)*15 = 5*15 = 75 ⇒ b
а=а-10; 15-10 = 5 ⇒ a
с:= a+b; 5+75 = 80 ⇒ c
b:= c/(2*a);</span> 80/(2*5) = 80/10 = 8 ⇒ b
Ответ: 8
Извини, второй лист решать - это много. Здесь итак 9 примеров было.