М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
laura050027
laura050027
16.09.2022 14:04 •  Информатика

Дано натуральное число n. выведите его представление в двоичном виде в обратном порядке. pascal abc

👇
Ответ:
witruk
witruk
16.09.2022
Var n:integer;
begin
write('n = '); readln(n);
while n<>0 do
 begin
 write(n mod 2);
 n:=n div 2;
 end;
writeln;
end.

Пример:
n = 8
0001
4,4(89 оценок)
Открыть все ответы
Ответ:
Код:s = [] result = [] i = input() s.append(i) while i != "end":    i = input().lower()    s.append(i) s.remove("end") for i in range(len(s)):    result.append(list()) for i in range(len(s)):    for j in range(5):        result[i].append(int(s[i])**2) for i in result:    print(i)Вывод:1 2 3 end [1,  1,  1,  1, 1] [4, 4, 4, 4, 4] [9, 9, 9, 9, 9]P.S. после 3 идут двузначные, трехзначные квадраты и список немного съезжает. Получается что то типа этого: [1, 1, 1, 1, 1] [4, 4, 4, 4, 4] [9, 9, 9, 9, 9] [16, 16, 16, 16, 16] [25, 25, 25, 25, 25]Если тебе нужно, чтобы каждое число было под своим столбиком, то попробуй написать вывод списка сам, используя два цикла. Выводи построчно каждый символ с дефолтным кол-вом пробелов между числами с end=" " в операторе print. В конце вывода всего вложенного цикла сделай print(), чтобы вывод следующей строки списка осуществлялся с новой строки.  
4,4(39 оценок)
Ответ:
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

1. Функция

function avg(a:array of integer):=a.Where(t->t>0).Average;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  Writeln('Среднее значение положительных элементов ',avg(a))
end.

2. Процедура

procedure avg(a:array of integer; var m:real);
begin
  m:=a.Where(t->t>0).Average
end;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  var m:real;
  avg(a,m);
  Writeln('Среднее значение положительных элементов ',m)
end.

Хорошо видно, что решение с функцией имеет явное преимущество.
4,8(35 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ