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

Решите по информатике (7 класс), ! с клавиатуры вводится число n. вывести на экран целые числа от 1 до n. заранее ! )*

👇
Ответ:
misik1
misik1
02.01.2022
Var n,i:integer;
begin;
readln(n);
for i:=1 to n do
writeln(i);
end.
4,6(94 оценок)
Открыть все ответы
Ответ:
IrinaKorolevskih
IrinaKorolevskih
02.01.2022

using System;



//6,


//28,


//496,


//8128,


//33550336



internal class Program {


   private static void Main() {


       var max = 0L;


       var quantity = 0;



       Console.WriteLine("Введите последовательность. Для окончания введите ноль");


       do {


           var n = long.Parse(Console.ReadLine());


           if (n == 0)


               break;



           if (max == n)


               quantity++;


           else if (n > max && IsIdealNumber(n)) {


               max = n;


               quantity = 1;


           }


       } while (true);



       Console.WriteLine($"max = {max}, кол-во = {quantity}");


       Console.ReadKey();


   }



   private static bool IsIdealNumber(long number) {


       var sum = 1L;



       for (var i = 2L; i <= number / 2; i++) {


           if (number % i != 0)


               continue;


           sum += i;


           if (sum > number || number < 0)


               break;


       }


       Console.WriteLine($"number = {number}, sum = {sum}");


       return sum == number; //зачем выдумывать нолики и единички если давно придуманы буленовские переменные


   }


}

4,4(23 оценок)
Ответ:
Каварныи
Каварныи
02.01.2022
// PascalABC.NET 3.4.2, сборка 1806 от 30.09.2018// Внимание! Если программа не работает, обновите версию!

begin

 var L := ReadSeqInteger('Вводите:', ReadInteger('N=')).ToList;

 L.Println; // исходная

 var k := L.OrderDescending.Skip(1).First; // после чего вставить

 var A := ReadInteger('Что вставляем?');

 L.Insert(L.IndexOf(k) + 1, A);

 L.Println; // после вставки

 k := L.Max;

 var ai := L.ToArray.IndexesOf(t -> t = k).ToArray;

 if ai.Count > 1 then

 begin

   L.RemoveAt(ai[1]);

   L.Println; // после удаления, если оно было

 end;

 L := L.SortedDescending.ToList;

 L.Println // после сортировки

end.

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