полина2130
05.06.2020 19:40

Описать технологии работы с графической информацией. Растровая графика в Рhotoshop и векторная графика в Paint. Графический редактор, основные инструменты и режимы работы.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
mma0509
06.12.2020 18:38
// PascalABC.NET 3.0, сборка 1128
var
  i,j,k,n,p:longint;
  f:array[1..10,1..2] of longint;
begin
  p:=2; i:=1;
  f[1,1]:=1; f[1,2]:=1;
  Write('Введите натуральное число не больше 2 147 483 647: ');
  Read(n);
  while n<>1 do begin
    if (n mod p)=0 then begin
      if f[i,1]<>p then
      begin Inc(i); f[i,1]:=p; f[i,2]:=1 end
      else Inc(f[i,2]);
      n:=n div p
    end
    else inc(p)
  end;
  k:=i;
  for i:=2 to k do
    for j:=1 to f[i,2] do Write(f[i,1],' ');
  Writeln
end.

Тестовое решение:
Введите натуральное число не больше 2 147 483 647: 37534
2 7 7 383
0,0(0 оценок)
Ответ:
wwwlavor
10.09.2021 06:16

using System;

using System.Linq;

namespace task29760750

{

   internal class Program

   {

       private static void Main(string[] args)

       {

           var N = int.Parse(Console.In.ReadLine());

           var array = Console.In.ReadLine()

               .Split(' ')

               .Select(int.Parse)

               .ToArray();

           var X = int.Parse(Console.In.ReadLine());

           var indices = array

               .Select((t, i) => t == X ? i : -1)

               .Where(t => t > 0)

               .ToArray();

           Console.Out.WriteLine(indices.Any() ? string.Join(" ", indices) : "-1");

       }

   }

}

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