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

Сколько цифр 6 будет содержать результат вычислений 49 в степени9–686+343 в степени10 в семеричной системе счисления

Показать ответ
Ответ:
Hjlüüä
Hjlüüä
13.08.2022 20:16

program raf105;

const

 n = 10;

var

 a,b,c: array[1..n] of integer;

 i,j,x,max,mpos,b1,c1: integer;

begin

write('Введите максимальное число: ');

readln(x);

writeln('Заполните массив из ',n,' элементов');

for i:=1 to n do

begin

 readln(a[i]);

 if a[i] > x

   then begin

     b1:= b1+1;

     b[b1]:= a[i];

   end

   else begin

     c1:= c1+1;

     c[c1]:= a[i];

   end;

end;

for i:=1 to c1 do

begin

 max:= -10000;

 for j:=i to c1 do

   if c[j] >= max

     then begin

       max:= c[j];

       mpos:= j;

     end;

 c[mpos]:= c[i];

 c[i]:= max;

end;

for i:=1 to b1 do

 a[i]:= b[i];

for i:=1 to c1 do

 a[i+b1]:= c[i];

write('Отсортированный массив: ');

for i:=1 to n do

 write(a[i],' ');

end.

PascalABC 3.4.2
0,0(0 оценок)
Ответ:
1234554321123456
1234554321123456
19.02.2021 13:59

На Python:

def buy(x, y, amount):

   result = x - y * amount

   if result < 0:

       print('Нет, не хватает ' + str(result) + ' руб.')

   else:

       print('Да, осталось ' + str(result) + ' руб.')

Объяснение:

Это просто функция, если тебе надо с вводом значений и т. д. и т. п., то:

def buy(x, y, amount = 6):

   result = x - y * amount

   if result < 0:

       print('Нет, не хватает ' + str(result) + ' руб.')

   else:

       print('Да, осталось ' + str(result) + ' руб.')

x = float(input('Введите количество денег '))

y = float(input('Введите цену за килограмм '))

buy(x, y)

PS: Можешь менять кол-во килограммов (amount)

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