Дан алгоритм.получив на вход число х, он выводит два числа a и b. найдите сколько есть таких x,при вводе которых алгоритм печатает сначала 2 , а затем 11. цел x,a,b ввод х а: =0; b: =0 нц пока х> 0 а: =а+1 b: =b+mod(x,10) x: =div(x,10) кц вывод а, нс, b кон

👇

Ответ:

Askmay

07.05.2023

Объяснение:

В переменной a подсчитывается длина числа x. Например, при x = 13 значение a после работы алгоритма будет равно 2. В переменной b считается сумма всех цифр числа x. Например, при x = 13 значение b после работы алгоритма будет равно 4.

Таким образом, нас просят найти количество двузначных (так как после работы алгоритма a = 2) чисел x с суммой цифр, равной 11 (так как после работы алгоритма b = 11). Таких чисел всего 8: 29, 38, 47, 56, 65, 74, 83, 92.

4,7(16 оценок)

Открыть все ответы

Ответ:

anzhelikamilan

07.05.2023

Палочки я так не думаю 30 я думаю о вас не знает и не может сказать что у вас в душе будет только хуже чем вчера я была уверена на то и не оиимс но в моем сердце не все тело как будто не в душе я как бы и любил когда мне было тяжело с ним рядом с вами быть вместе и быть рядом любимым мужчиной всегда рядом с ним и без этого я хочу чтобы ты был рядом со мною рядом и я не знаю почему ты меня так не любит но ты же знаешь что мне надо быть рядом с тобою быть не может рядом быть и быть любимым и любить его и знать как быть счастливым и как оно проходит хорошо или как будто в сердце и в голове сердце не меняется а сердце не может быть таким же как и все

Объяснение:

мая 02

С 16:00 по 16:30

4,7(97 оценок)

Ответ:

danilyakimov1

07.05.2023

В PascalABC.NET эта задача решается легко и быстро. В других версиях будет монстрик.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure MakeFile(path:string);
// не относится к заданию, создает файл Text со 100 числами
begin
WriteLines(path,SeqRandom(100,-99,99).Select(x->x.ToString))
end;

begin
MakeFile('MyFile1.txt');
// теперь у нас есть текстовый файл из 100 случайных чисел
// собственно, решение
var n:=ReadInteger('Укажите количество чисел:');
var a:=ReadLines('MyFile1.txt').Take(n).ToArray;
Writeln('Исходная последовательность'); a.Println;
Writeln('Результирующая последовательность');
a:=a.OrderBy(x->x.Last).ToArray; a.Println;
WriteAllLines('MyFile2.txt',a);
end.

Пример
Укажите количество чисел: 15
Исходная последовательность
51 -9 17 -12 7 -15 -20 50 98 19 56 67 -57 -42 64
Результирующая последовательность
-20 50 51 -12 -42 64 -15 56 17 7 67 -57 98 -9 19

4,8(7 оценок)

Это интересно:

Транспорт

29.01.2021

Как правильно заботиться о мотоцикле и сделать его долговечным...

Дом-и-сад

08.01.2020

Как подготовить квартиру к отъезду: советы от профессионалов...

Здоровье

03.04.2021

Как вылечить прищемленный палец: лечение дома и медицинские советы...

Семейная-жизнь