Регистрация
Лев1234567
16.06.2021 04:13
Информатика
Есть ответ 👍

Вводим число,признак конца ряда 0 вывести количество положительных и отрицательных чисел пример: 1 5 6 -3 8 -2 0 положительных 4 отрицательных 2 прошу, используйте только repeat until while заранее

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

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

nikitayurev132p0c5ew
nikitayurev132p0c5ew
4,8(68 оценок)
Var a,k1,k2: integer; begin k1: =0; k2: =0; repeat write('a = '); readln(a); if a> 0 then k1: =k1+1   else if a< 0 then k2: =k2+1; until a=0; writeln('k1 = ',k1,'   k2 = ',k2); end. пример: a = 1 a = 5 a = 6 a = -3 a = 8 a = -2 a = 0 k1 = 4   k2 = 2
qppqwoow
qppqwoow
4,8(68 оценок)
Var n,h,m,s: integer; begin readln(n); n: =n mod (24*3600); h: =n div 3600; m: =(n-h*3600) div 60; s: =n mod 60; write(h,': '); case m of   0: write('00: ');   1..9: write('0',m,': ');   else write(m,': '); end; case s of   0: writeln('00');   1..9: writeln('0',s);   else writeln(s); end; end. пример: 129700 12: 01: 40

Популярно: Информатика