Question

С клавиатуры вводятся числа (положительные и отрицательные) и последовательно суммируются их модули. Найти количество введенных чисел, когда их сумма превысила 100. На языке Паскаль пожалуйста    пожалуйста, срочно!!!!

Answer 1

program z1;

var

a,c: integer;

begin

c:=0;

while c<100 do

  begin

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

    readln(a);

    if a<0 then a:=a*(-1);

    c:=c+a;

  end;

writeln('Сумма модулей введенных чисел превысело 100');

end.

 

Answer 2

Конечно, вот пример решения данной задачи на языке Паскаль:

pascalCopy code
program SumModulus;

var
  num: Integer;
  sum: Integer;
  count: Integer;

begin
  sum := 0;
  count := 0;
  
  repeat
    Write('Введите число: ');
    Readln(num);
    
    sum := sum + Abs(num); // Суммируем модуль числа
    
    count := count + 1;
  until sum > 100;
  
  Writeln('Количество введенных чисел: ', count);
end.

Эта программа принимает числа с клавиатуры и суммирует их модули. Она продолжает запрашивать ввод чисел, пока сумма модулей не превысит 100. Затем программа выводит количество введенных чисел.