Регистрация
дима2872
19.07.2020 05:57
Информатика
Есть ответ 👍

Ввести 7 чисел и посчитать количество чисел больше 0, и сумму чисел меньше или равных 0.

180
455
Посмотреть ответы 3

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

slava4В
slava4В
4,8(65 оценок)

vars,n,i,a: integer; beginfor i: =1 to 7 do beginreadln(a); if a> 0 thenn: =n+1elses: =s+a; end; writeln('polozitelnih=', n, ' summa otrizatelnih=', s); end.

Skripp
Skripp
4,8(84 оценок)

var

  c, summ: real;

  count, i: integer;

begin

  count : = 0;

  summ : = 0;

  for i : = 1 to 7 do

  begin

      write('введите число ');

      readln(c);

      if c > 0 then

          count : = count + 1

      else

          summ : = summ + c;

  end;

  writeln('количество числел больших 0 равно ', count);

  writeln('сумма чисел меньших либо равных 0 равна ', summ);

end.

Гуленко
Гуленко
4,6(50 оценок)
Я  дуаю что так         829 = 1100111101 в двоичной => минимум при циклическом сдвиге 0011110111 = 247 в десятичной

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