Question

1)Найти сумму всех целых чисел на заданном интервале. 2) Найти все двухзначные числа, которые делятся на n или содержат цифру n . Pascal ,тема циклы, без for плиз.

Answer 1

begin

 //1)

 Println('Введите границы интервала');

 var (a, b) := ReadInteger2();

 Println('Sum =', Range(a, b).Sum);

 

 //2)

 var n := ReadInteger('n =');

 foreach var x in Range(10, 99) do

   if (x mod n = 0) or

     (x mod 10 = n) or (x div 10 = n) then  

     Print(x)

end.

Answer 2

1. Найти сумму всех целых чисел на заданном интервале:

Для нахождения суммы всех целых чисел на заданном интервале можно воспользоваться формулой арифметической прогрессии. Если задан интервал [a, b], то сумма всех целых чисел на этом интервале будет равна:

Сумма = (количество чисел в интервале) * (среднее арифметическое)

Количество чисел в интервале можно найти вычитанием границ интервала и добавлением 1:

Количество чисел = b - a + 1

Среднее арифметическое чисел в интервале будет равно:

Среднее арифметическое = (a + b) / 2

Таким образом, сумма всех целых чисел на интервале [a, b] будет равна:

Сумма = (b - a + 1) * (a + b) / 2

2. Найти все двухзначные числа, которые делятся на n или содержат цифру n:

Для решения этой задачи, давайте разделим её на две части: а) Поиск двухзначных чисел, которые делятся на n. б) Поиск двухзначных чисел, которые содержат цифру n.

а) Двухзначные числа, которые делятся на n: Это можно сделать при помощи цикла while. Мы будем увеличивать текущее число на 1 и проверять, делится ли оно на n без остатка. Если делится, и оно двухзначное (от 10 до 99 включительно), то мы добавим его в список ответов.

pascalCopy code
program DivisibleByN;
var
  n, number: integer;
begin
  Write('Введите число n для проверки деления: ');
  ReadLn(n);
  
  Write('Двухзначные числа, которые делятся на ', n, ': ');
  number := 10;
  while number <= 99 do
  begin
    if number mod n = 0 then
      Write(number, ' ');
    Inc(number);
  end;
end.

б) Двухзначные числа, которые содержат цифру n: Здесь также воспользуемся циклом while, чтобы перебирать все двухзначные числа и проверять, содержит ли какая-либо из его цифр цифру n.

pascalCopy code
program ContainsDigitN;
var
  n, number, digit: integer;
begin
  Write('Введите цифру n для проверки наличия: ');
  ReadLn(n);
  
  Write('Двухзначные числа, которые содержат цифру ', n, ': ');
  number := 10;
  while number <= 99 do
  begin
    digit := number mod 10; // единицы
    if (digit = n) or ((number div 10) = n) then // проверяем единицы и десятки
      Write(number, ' ');
    Inc(number);
  end;
end.

Обратите внимание, что в обоих случаях код приведен на языке Pascal. Вы можете запустить каждую программу отдельно, чтобы получить результаты.