Question

Задачи по инфе срочно плиз Все задачи надо написать используя цикл repeat используя цикл с пост условием 1) посчитать сумму всех нечетных чисел от 230 до 430 2) вычислить квадратные корни из чисел : 900, 893, 886, 879 до тех пор пока это можно делать 3) найти сумму чисел шести значного числа

Answer 1

Вот решения)
Не надо благодарностей)))

Answer 2

1) посчитать сумму всех нечетных чисел от 230 до 430
// PascalABC.NET 3.0, сборка 1088
var
  i,s:integer;
begin
  i:=231; s:=0;
  repeat
    s:=s+i; i:=i+2
  until i>400;
  Writeln('Сумма нечетных чисел на интервале [230;400]: ',s)
end.

Результат выполнения программы:
Сумма нечетных чисел на интервале [230;400]: 26775

2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать
// PascalABC.NET 3.0, сборка 1088
var
  i:integer;
begin
  i:=900;
  repeat
    Write('(',i:3,',',sqrt(i):9:5,') ');
    i:=i-7
  until i<0;
  Writeln;
end.

Результат выполнения программы:
(900, 30.00000) (893, 29.88311) (886, 29.76575) (879, 29.64793)
(872, 29.52965) (865, 29.41088) (858, 29.29164) (851, 29.17190)
(844, 29.05168) (837, 28.93095) (830, 28.80972) (823, 28.68798)
... часть строк пропущена
(130, 11.40175) (123, 11.09054) (116, 10.77033) (109, 10.44031)
(102, 10.09950) ( 95,  9.74679) ( 88,  9.38083) ( 81,  9.00000)
( 74,  8.60233) ( 67,  8.18535) ( 60,  7.74597) ( 53,  7.28011)
( 46,  6.78233) ( 39,  6.24500) ( 32,  5.65685) ( 25,  5.00000)
( 18,  4.24264) ( 11,  3.31662) (  4,  2.00000)

3) найти сумму чисел шестизначного числа
// PascalABC.NET 3.0, сборка 1088
var
  n:longint;
  s:integer;
begin
  Write('n='); Read(n);
  repeat
    s:=s + (n mod 10);
    n:=n div 10
  until n=0;
  Writeln('Сумма цифр числа равна ',s)
end.

Тестовое решение:
n=472305
Сумма цифр числа равна 21

Answer 3

1) Посчитать сумму всех нечетных чисел от 230 до 430

Для решения этой задачи можно использовать цикл `repeat` с постусловием.

var sum = 0
var number = 231

repeat {
    sum += number
    number += 2
} while number <= 430

print("Сумма всех нечетных чисел от 230 до 430: \(sum)")

В этом примере сначала инициализируется переменная `sum` для хранения суммы нечетных чисел и переменная `number` для итераций по числам. Затем используется цикл `repeat` с постусловием, в котором каждое нечетное число от 231 до 430 добавляется к сумме `sum`. Переменная `number` увеличивается на 2 при каждой итерации, чтобы переходить к следующему нечетному числу. Цикл выполняется до тех пор, пока `number` не станет больше 430. В конце выводится значение суммы.

2) Вычислить квадратные корни из чисел: 900, 893, 886, 879 до тех пор, пока это можно делать

Для решения этой задачи также можно использовать цикл `repeat` с постусловием.

var numbers: [Double] = [900, 893, 886, 879]

repeat {
    let number = numbers.removeLast()
    let squareRoot = sqrt(number)
    print("Квадратный корень из числа \(number) равен \(squareRoot)")
} while !numbers.isEmpty

В этом примере создается массив `numbers`, содержащий числа 900, 893, 886 и 879. Затем используется цикл `repeat` с постусловием, в котором каждое число из массива извлекается с помощью функции `removeLast()`. Для каждого числа вычисляется квадратный корень с помощью функции `sqrt()` и выводится на экран. Цикл выполняется до тех пор, пока массив `numbers` не станет пустым.

3) Найти сумму чисел шести значного числа

Для нахождения суммы чисел шести значного числа, мы можем использовать цикл `repeat` с постусловием и операции деления и остатка от деления.

let sixDigitNumber = 123456
var sum = 0
var number = sixDigitNumber

repeat {
    let digit = number % 10
    sum += digit
    number /= 10
} while number > 0

print("Сумма чисел шести значного числа \(sixDigitNumber) равна \(sum)")

В этом примере сначала инициализируется переменная `sixDigitNumber`, содержащая шести значное число (в данном случае 123456). Затем инициализируются переменные `sum` для хранения суммы чисел и `number` для итераций по цифрам числа. В цикле `repeat` с постусловием каждая цифра из числа извлекается с помощью операции остатка от деления на 10 (`number % 10`) и добавляется к сумме `sum`. Затем число делится на 10 (`number /= 10`) для перехода к следующей цифре. Цикл выполняется до тех пор, пока `number` больше 0. В конце выводится значение суммы.