Пожалуйста1531
29.02.2020 00:35

Надо
напишите программу, которая заполняет массив из n элементов случайными целыми числами в диапазоне [ a , b ] и определяет номера двух соседних элементов этого массива, имеющих минимальную сумму. если таких пар несколько, нужно вывести номера элементов самой последней пары.

входные данные

входная строка содержит три числа: границы диапазона случайных чисел a и b , а также размер массива n . все числа разделены пробелами. гарантируется, что 0 < n ≤ 1 .

выходные данные

в первой строке программа должна вывести n элементов построенного массива, разделив их пробелами, а во второй строке – номера двух соседних элементов массива, имеющих минимальную сумму.

примеры
входные данные
10 20 10
выходные данные
10 10 19 12 13 17 13 11 14 14
1 2
п.с. питон

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
gfsfsdcxz
26.11.2022 18:08

Общий вид цикла пока:

 

ПОКА <условие> ДЕЛАТЬ <действие>

 

Суть цикла:

Действие выполняется до тех пор, пока условие не станет ложным.

Пример:

А=1

ПОКА А<3  ДЕЛАТЬ А=А+1

 

Цикл закончится, когда переменная А станет равной 3.

 

Если условие изначально ложно, то цикл не выполнится ни разу.

Пример:

А=4

ПОКА  А<3  ДЕЛАТЬ  А=А+1

 

Цикл не выполнится ни разу и значение переменной А не измениться.

 

При составлении цикла ПОКА нужно обязательно следить, чтобы условие рано или поздно стало ложным, иначе цикл будет бесконечно выполняться.

0,0(0 оценок)
Ответ:
mirko20152016
24.07.2020 06:56
1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

Всё проверено, удачи:)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота