В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
вікуся40
вікуся40
31.03.2022 03:27 •  Информатика

Qbasic составить программы

Показать ответ
Ответ:
Vika556965
Vika556965
20.01.2023 14:02

var a:String;

   i,sum:Integer;

begin

 writeln('Введите последовательность чисел:');

 readln(a);

 a := a.Replace(' ', '');

 writeln('Количество чисел:' + a.Length);

 for i := 1 to a.Length do

   sum := sum + strToInt(a[i]);

 writeln('Сумма: ' + sum);

end.

Объяснение:

В начале я запросил последовательность чисел как строку, убрал все пробелы и посчитал длину самой строки, этим я узнал, сколько там чисел. Далее используя циклом посчитал сумму всех чисел.

Ввод:

1 2 3 4 5

Вывод:

Количество чисел: 5

Сумма: 15

0,0(0 оценок)
Ответ:
hellppp1
hellppp1
10.03.2022 14:22

Программа выводит на экран введенное число в двоичном виде.

Объяснение:

long a;  // объявление переменной a типа long (8-байтовое целое)

cin >> a;   // переменной a присваивается значение, введеное с клавиатуры

bitset<64> b(a);  // создается двоичное представление числа a

string s = b.to_string();  // двоичное представление числа a преобразуется в строковый вид

cout << s.substr(s.find_first_of("1"));

На экран выводится двоичное представление числа a (в строковом представлении выбирается подстрока, начинающаяся с первой единицы (чтобы не выводить лишние нули. Например, при вводе 10, на экран будет выведено 1010, а не 00001010)

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