Задача 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.
клавиатуры чисел 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.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Как записать условие k кратно 7 информатика помагите
Автор: snab54
Сколько кб содержится в 32 768 битах
Автор: Stryapunina
З клавіатури вводиться число. Знайти суму чисел від 1 до цього числа
Автор: mbykovskiy
Конспект по теме Анализ данных на основе имеющейся информации
Автор: манукян29
клавиатуры чисел 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.