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

Напишите программу (pascal)(геометрические построения средствами программирывания)


Напишите программу (pascal)(геометрические построения средствами программирывания)

Показать ответ
Ответ:
help275
help275
27.09.2022 06:20
Программы для PascalABC.Net
Для древних турбопаскалей требуется добавить две строки: первым оператором поставить
Uses Crt;
а предпоследним
Readkey;

var
  i, n, s: integer;

begin
  Write('Введите количество элементов n: '); Read(n);
  s := 0;
  for i := 1 to n do s := s + i;
  Writeln('Сумма 1+2+...+', n, ' = ', s)
end.

Тестовое решение:
Введите количество элементов n: 10
Сумма 1+2+...+10 = 55

var
  i, n: integer;
  s:real;

begin
  Write('Введите количество элементов n: '); Read(n);
  s := 0;
  for i := 1 to n do s := s + 1/i;
  Writeln('Сумма 1+1/2+...+1/', n, ' = ', s)
end.

Тестовое решение:
Введите количество элементов n: 8
Сумма 1+1/2+...+1/8 = 2.71785714285714
0,0(0 оценок)
Ответ:
irajhgmvm
irajhgmvm
08.04.2020 16:09
ответ 31

код на Ruby 22

for i in 1..40
    s = i.to_s(2)
    k = 0
    s.chars().each {|c| k += 1 if c == "1" }
    s += (k % 2).to_s + "0"
    p [i, s, s.to_i(2)]
end

вывод
[1, "110", 6]
[2, "1010", 10]
[3, "1100", 12]
[4, "10010", 18]
[5, "10100", 20]
[6, "11000", 24]
[7, "11110", 30]
[8, "100010", 34]
[9, "100100", 36]
[10, "101000", 40]
[11, "101110", 46]
[12, "110000", 48]
[13, "110110", 54]
[14, "111010", 58]
[15, "111100", 60]
[16, "1000010", 66]
[17, "1000100", 68]
[18, "1001000", 72]
[19, "1001110", 78]
[20, "1010000", 80]
[21, "1010110", 86]
[22, "1011010", 90]
[23, "1011100", 92]
[24, "1100000", 96]
[25, "1100110", 102]
[26, "1101010", 106]
[27, "1101100", 108]
[28, "1110010", 114]
[29, "1110100", 116]
[30, "1111000", 120]
[31, "1111110", 126]
[32, "10000010", 130]
[33, "10000100", 132]
[34, "10001000", 136]
[35, "10001110", 142]
[36, "10010000", 144]
[37, "10010110", 150]
[38, "10011010", 154]
[39, "10011100", 156]
[40, "10100000", 160]
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота