Найти сумму всех положительных и произведение всех отрицательных чисел в промежутке от a до b на языке паскаль программку

159

176

Посмотреть ответы 2

Ответы на вопрос:

lagutinairisha1ира

Информатика

4,4(71 оценок)

Var a,b,s,p,x: integer; begin p: =1; s: =0; read (a,b); for x: = a to b do begin if x> 0 then s: =s+x; if x< 0 then p: =p*x; end; writeln(s,p); end.

Aruzhan0121

Информатика

4,5(7 оценок)

//pascal abc.net v3.1 сборка 1172 var s,c: string; i,k,j,m: integer; begin readln(s); k: =0; m: =length(s); i: =0; while i< > m do begin; inc(i); for j: =i to m do if s[i]=s[j] then inc(k); if k=3 then begin; c: =s[i]; while pos(c,s)< > 0 do delete(s,pos(c,s),1); end; k: =0; m: =length(s); end; writeln(s); end. пример ввода: панамка пример вывода: пнмк