Question

Написать программу в Паскале, которая прибавляет к 1 число 7 до тех пор, пока полученная сумма не превысит max число, введенное с клавиатуры. После каждого действия вывести полученную сумму, если она меньше max числа

Answer 1

Var max,s:integer;
begin
write('max = ');
readln(max);
s:=1;
while s<=max do
 begin
 write(s,' ');
 s:=s+7;
 end;
writeln;
end.

Пример:
max = 40
1 8 15 22 29 36 

Answer 2

Программа на Паскале для прибавления числа 7 до превышения максимального числа

program AddSevenUntilMax;

var
  num, max, sum: integer;

begin
  writeln('Введите максимальное число: ');
  readln(max);
  
  num := 1;
  sum := 0;
  
  while sum <= max do
  begin
    sum := sum + num;
    writeln('Полученная сумма: ', sum);
    
    if sum <= max then
      num := 7;
  end;
  
  writeln('Сумма превысила максимальное число.');
end.

Объяснение программы

1. Программа начинается с объявления переменных `num`, `max` и `sum`. 2. Пользователю предлагается ввести максимальное число с клавиатуры. 3. Затем инициализируются переменные `num` и `sum` со значениями 1 и 0 соответственно. 4. В цикле `while` проверяется условие `sum <= max`. Если это условие истинно, то выполняются следующие действия: - Сумма `sum` увеличивается на значение переменной `num`. - Выводится полученная сумма. - Если `sum` все еще меньше или равна `max`, то переменной `num` присваивается значение 7. 5. Цикл продолжается до тех пор, пока сумма `sum` не превысит максимальное число `max`. 6. После выхода из цикла выводится сообщение о том, что сумма превысила максимальное число.

Пример работы программы:

Введите максимальное число: 
20
Полученная сумма: 1
Полученная сумма: 8
Полученная сумма: 15
Полученная сумма: 22
Сумма превысила максимальное число.

Объяснение кода:

- В начале программы объявляются переменные `num`, `max` и `sum` с типом `integer`. - Пользователю предлагается ввести максимальное число с клавиатуры с помощью `writeln` и `readln`. - Затем переменные `num` и `sum` инициализируются значениями 1 и 0 соответственно. - В цикле `while` проверяется условие `sum <= max`. Если это условие истинно, то выполняются следующие действия: - Сумма `sum` увеличивается на значение переменной `num` с помощью оператора `:=`. - Полученная сумма выводится на экран с помощью `writeln`. - Если `sum` все еще меньше или равна `max`, то переменной `num` присваивается значение 7 с помощью оператора `:=`. - Цикл продолжается до тех пор, пока сумма `sum` не превысит максимальное число `max`. - После выхода из цикла выводится сообщение о том, что сумма превысила максимальное число.

Примечание: - Данная программа прибавляет число 7 к сумме до тех пор, пока полученная сумма не превысит максимальное число, введенное с клавиатуры. - После каждого действия программа выводит полученную сумму, если она меньше максимального числа.