Question

Ввести целое число а и вывести сумму всех чисел от 1 до а ПАСКАЛЬ! Помогите пожалуйста (через WHILE......DO BEGIN )

Answer 1

Program ch ;

Var x:integer ;

BEGIN

X:=1;

While xl=7 Do(можешь выбрать другое число)

BEGIN

Write (x, ' ') /в' ' это пробел /

X:=x+1

End ;

END.

Answer 2

Конечно, я могу помочь вам с этой задачей на языке Pascal. Вот код, который решает вашу задачу с использованием цикла WHILE...DO...BEGIN:

program SumOfNumbers;
var
  a, sum, i: integer;
begin
  write('Введите целое число a: ');
  readln(a);
  
  sum := 0;
  i := 1;
  
  while i <= a do
  begin
    sum := sum + i;
    i := i + 1;
  end;
  
  writeln('Сумма всех чисел от 1 до ', a, ' равна ', sum);
end.

В этом коде мы сначала запрашиваем у пользователя целое число `a`. Затем мы инициализируем переменные `sum` и `i`. Переменная `sum` будет использоваться для хранения суммы чисел, а переменная `i` будет использоваться для итерации от 1 до `a`.

Затем мы используем цикл `while`, чтобы пройти через все числа от 1 до `a`. Внутри цикла мы добавляем текущее значение `i` к переменной `sum` и увеличиваем `i` на 1.

После завершения цикла мы выводим результат - сумму всех чисел от 1 до `a`.

Надеюсь, это поможет вам решить вашу задачу! Если у вас возникнут еще вопросы, не стесняйтесь задавать их.