Question

Две задачи в паскале 1) Подсчитать сумму вводимых с клавиатуры чисел до числа большего 11. 2) подсчитать сумму вводимых с клавиатуры чисел до числа не равного 7.

Answer 1

var k,a:integer;

begin

read(k);

while(k<=11)do begin

a:=a+k;

read(k);

end;

write(a);

end.

//2 задача

var k,a:integer;

begin

read(k);

while(k<>7)do begin

a:=a+k;

read(k);

end;

write(a);

end.

Answer 2

Вот решения двух задач на языке Pascal:

1. Подсчитать сумму вводимых с клавиатуры чисел до числа большего 11:

pascalCopy code
program SumUntilGreaterThanEleven;

var
  num, sum: integer;

begin
  sum := 0;
  
  repeat
    write('Введите число: ');
    readln(num);
    sum := sum + num;
  until num > 11;
  
  writeln('Сумма чисел: ', sum);
end.

2. Подсчитать сумму вводимых с клавиатуры чисел до числа не равного 7:

pascalCopy code
program SumUntilNotEqualSeven;

var
  num, sum: integer;

begin
  sum := 0;
  
  repeat
    write('Введите число: ');
    readln(num);
    sum := sum + num;
  until num <> 7;
  
  writeln('Сумма чисел: ', sum);
end.

Оба программы используют цикл repeat...until для ввода чисел с клавиатуры и проверки условия окончания подсчета. Они начинают с нулевой суммы и добавляют каждое введенное число к ней до выполнения соответствующего условия. После выполнения цикла выводится итоговая сумма чисел.