Нужно составить программу в паскале abc! поставить в предложении вместо пробелов восклицательные знаки.

249

305

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

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

Samal0

Информатика

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

Только c# могу предложить

Савина11

Информатика

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

Var a,so,sp: real; begin so: =0; sp: =0; repeat read(a); if a> 0 then sp: =sp+a else so: =so+a; until a = 0; writeln('сумма положительных: ',sp); writeln('сумма отрицательных: ',so); end. var n,k,a: integer; begin write('введите количество чисел: '); readln(n); write('введите сами числа: '); k: =0; for n: = 1 to n do begin read(a); if a mod 3 = 0 then k: =k+1 end; writeln('количество чисел, кратных трём: ',k); end.