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

Дана последовательность из n
(1≤


10
5
)
(
1

n

10
5
)
чисел

a
i
(1≤


10
12
)
(
1

a
i

10
12
)
и

q
запросов
(1≤


10
5
)
(
1

q

10
5
)
. Каждый запрос предстает собой число

p
i
(1≤


10
12
)
(
1

p
i

10
12
)
.
Задача состоит в том, чтобы на каждый запрос вывести ответ - входит ли

p
i
в исходную последовательность.
Входные данные
В первой строчке задается число

n
(1≤


10
5
)
(
1

n

10
5
)
и количество запросов

q
(1≤


10
5
)
(
1

q

10
5
)
. Далее идут

n
чисел

a
i
(1≤


10
12
)
(
1

a
i

10
12
)
. Далее записаны

q
запросов

p
i
(1≤


10
12
)
(
1

p
i

10
12
)
.
Выходные данные
Вывести

q
ответов на запросы: на

i
-й запрос вывести ответ - «Yes», если

p
i
содержится в исходной последовательности и «No» в остальных случаях)

Показать ответ
Ответ:
temur4
temur4
20.03.2020 13:02
Обычно решают на Pascal, но я напишу на C++, он мне роднее)). Я конечно немножко по-другому реализовал (в плане ввода значений), но поставленную задачу выполняет.
1)
#include <stdio.h>
#inlcude <conio.h>
#include <iostream>
using namespace std;
int main()
{
 long a, b, i, sum=0;
 cin>>a; // Вводишь число a
 cin>>b; // Вводишь число b
  for (i=a;i<=b;i++)
    {
      sum=sum+(i*i);
    }
 cout<<sum; // выводим сумму квадратов чисел
 _getch();
}

2)
#include <stdio.h>
#inlcude <conio.h>
#include <iostream>
using namespace std;
int main()
{
 long a,b,c,d,i;
 bool z=false;
 cin>>a;
 cin>>b;
 cin>>c;
 cin>>d;
 for (i=10000; i<=99999; i++)
 {
   if (i % a==b && i % c==d) {z=true; cout<<i<<" ";}
 }
 if (z==false) {cout<<"-1";} // Выводится если нет чисел
_getch();
}
0,0(0 оценок)
Ответ:
МихаилКузмичёв
МихаилКузмичёв
20.03.2020 13:02

1)

var

   a, n, s: integer;

begin

   write('n = ');

   Readln(n);

   

   a := 1;

   while a <= n do

   begin

       s := s + a;

       a := a + 1;

   end;

   writeln(s);

end.

2)

var

   a, n: integer;

begin

   write('n = ');

   Readln(n);

   a := 1;

   while a <= n do

   begin

       writeln(2 * a);

       a := a + 1;

   end;

end.

3)

var

   a, b: integer;

begin

   write('Введите числа a и b: ');

   Readln(a, b);

   

   while a <= b do

   begin

       writeln(a, '^2 = ', sqr(a));

       a := a + 1;

   end;

end.

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