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

Задача A. Крутой подарок
Имя входного файла: стандартный ввод
Имя выходного файла: стандартный вывод
Ограничение по времени: 1 секунда
Ограничение по памяти: 256 мегабайт
У Темирлана недавно был день рождения. Из его друзей самый оригинальный подарок решил
сделать его друг, Айсултан. Айсултан знает, что Темирлан любит крутые числа. Число называется
крутым, если оно является квадратом целого числа. Например, 0, 9, 121 — крутые числа; а 50, 3,
12 — не крутые числа.
В распоряжении Айсултана есть последовательность из n целых чисел — a1, a2, a3, ..., an. Чтобы
сообразить подарок, Айсултан берет два числа из этой последовательности aj и ai таких, что j < i
и если число aj ∗ ai является крутым, то он подарит произведение этих двух чисел Темирлану понять Айсултану, сколькими он может это сделать. Формально, найдите
количество пар чисел (aj , ai) таких, что j < i и произведение aj ∗ ai является крутым числом.
Формат входных данных
Первая строка входных данных содержит одно число n — размер последовательности Айсултана
(1 ⩽ n ⩽ 103
).
Вторая строка входных данных содержит n целых чисел a1, a2, a3, ..., an через пробел — последовательность
Айсултана (−1000 ⩽ ai ⩽ 1000).
Формат выходных данных
В единственной строке выведите одно число — ответ на задачу.
Примеры
стандартный ввод стандартный вывод
4
1 0 1 1
6
2
-8 -2
1
3
1 16 4
3
1
0
0
Замечание
Данная задача содержит 3 подзадачи.
1. 0 ⩽ ai ⩽ 1 для всех 1 ⩽ i ⩽ n.
2. n = 2, −1000 ⩽ ai ⩽ 1000.
3. Ограничения из условия.
В первом примере всего существует 6 пар чисел и все они являются квадратами числа 0 или 1.
Во втором примере единственная пара при произведении дает 16, что является квадратом целого
числа.
В третьем примере все три пары (1, 16), (1, 4), (16, 4) в произедении дают квадрат целого числа.
В четвертом примере нет пар.

👇
Открыть все ответы
Ответ:
1)Составьте программу, которая находит большее из двух введенных с
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 if a>b then writeln(a)
 else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 write('Enter c: ');
 read(c);
 if (a<b) and (b<c)  then writeln(a);
  if (b<c) and (c<a) then writeln(b)
  else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
 write('Enter a: ');
 read(a);
 if (a mod 3) = 0 then writeln('Кратно')
 else writeln('Не кратно');
end.
4,6(8 оценок)
Ответ:
Androchshuk15
Androchshuk15
05.07.2020
1)Составьте программу, которая находит большее из двух введенных с
клавиатуры чисел a, b и выводит его на экран. Числа 7 и 9
var a,b : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 if a>b then writeln(a)
 else writeln(b);
end.
2) Составьте программу, которая находит меньшее из трёх введенных
чисел a, b, c и выводит его на экран. Числа 10, 4 и 9
var a,b,c : integer;
begin
 write('Enter a: ');
 read(a);
 write('Enter b: ');
 read(b);
 write('Enter c: ');
 read(c);
 if (a<b) and (b<c)  then writeln(a);
  if (b<c) and (c<a) then writeln(b)
  else writeln(c);
end.
3) Составьте программу определяющую, является ли введенное с
клавиатуры целое число кратным 3.
var a: integer;
begin
 write('Enter a: ');
 read(a);
 if (a mod 3) = 0 then writeln('Кратно')
 else writeln('Не кратно');
end.
4,4(44 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ