Question

помогите пожалуйста составить программу с помощью цикла с постусловием repeat... unti:1) дано натуральное число верно ли что сумма его цифр больше 10? 2) найти сумму целых положительных чисел больших 30 и меньше 100.помогиите ​

Answer 1

Ответ:

привет. ты же учишься в Якутске? если да это я лиаанааа.ахахахахах

Answer 2

Конечно, вот программа на языке программирования, использующая цикл с постусловием (repeat... until) для решения ваших задач:

pascalCopy code
program Summation;
var
  number, digitSum, numSum, i: integer;
begin
  // Инициализация суммы цифр и суммы чисел
  digitSum := 0;
  numSum := 0;

  // Задача 1: Проверка суммы цифр натурального числа > 10
  repeat
    writeln('Введите натуральное число (0 - для завершения): ');
    readln(number);
    
    if number > 0 then
    begin
      digitSum := 0;
      i := number;
      
      // Вычисление суммы цифр числа
      repeat
        digitSum := digitSum + (i mod 10);
        i := i div 10;
      until i = 0;
      
      // Вывод результата для задачи 1
      if digitSum > 10 then
        writeln('Сумма цифр числа больше 10.')
      else
        writeln('Сумма цифр числа меньше или равна 10.');
    end;
    
    // Задача 2: Сумма чисел больше 30 и меньше 100
    if (number > 30) and (number < 100) then
      numSum := numSum + number;
      
  until number = 0;

  // Вывод суммы чисел из задачи 2
  writeln('Сумма чисел больше 30 и меньше 100: ', numSum);
end.

Эта программа запрашивает натуральные числа от пользователя (0 для завершения ввода) и выполняет две задачи:

1. Проверяет, больше ли сумма цифр введенного натурального числа 10 или нет.
2. Суммирует все целые положительные числа, большие 30 и меньшие 100, которые введены пользователем.

Надеюсь, это поможет вам понять, как использовать цикл с постусловием для выполнения указанных задач.