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) в произедении квадрат целого числа. в четвертом примере нет пар.
Ответы
Var s:string; d1,m1,g1,d2,m2,g2,t,c:integer; p:boolean; k:byte;begin
k:=0;
writeln('Введите дату в формате дд.мм.гг');readln(s); val(copy(s,7,2),t,c);{преобразуем год в число}if (c<>0)or(t<0) then k:=1 else g1:=t;{определим високосный год или нет}if (((g1+2000) mod 100<>0)and((g1+2000) mod 4=0))or((g1+2000) mod 400=0) then p:=trueelse p:=false;
val(copy(s,4,2),t,c);if (c<>0)or not(t in [1..12]) then k:=1 else m1:=t;
val(copy(s,1,2),t,c);if (c<>0)or((m1 in [1,3,5,7,8,10,12])and not(t in [1..31])) or((m1 in [4,6,9,11])and not(t in [1..30])) or(p and(m1=2)and not(t in [1..29])) or(not p and(m1=2)and not(t in [1..28]))then k:=1 else d1:=t;if k=1 thenbeginwriteln('Дата введена неверно!');endelsebeginif(m1=1)and(d1=1)then begin d2:=31; m2:=12; g2:=g1-1; end
else if ((m1 in [5,7,10,12]) and(d1=1))then begin d2:=30; m2:=m1-1; g2:=g1; end
else if ((m1 in [2,4,6,8,9,11]) and(d1=1))then begin d2:=31; m2:=m1-1; g2:=g1; end
else if(m1=3)and (d1=1) then begin if p then d2:=29 else d2:=28; m2:=m1-1; g2:=g1; end
else begin d2:=d1-1; m2:=m1; g2:=g1; end;writeln('Предыдущая дата:');if d2<10 then write('0',d2,'.')else write(d2,'.');if m2<10 then write('0',m2,'.')else write(m2,'.');write(g2);end;end.
k:=0;
writeln('Введите дату в формате дд.мм.гг');readln(s); val(copy(s,7,2),t,c);{преобразуем год в число}if (c<>0)or(t<0) then k:=1 else g1:=t;{определим високосный год или нет}if (((g1+2000) mod 100<>0)and((g1+2000) mod 4=0))or((g1+2000) mod 400=0) then p:=trueelse p:=false;
val(copy(s,4,2),t,c);if (c<>0)or not(t in [1..12]) then k:=1 else m1:=t;
val(copy(s,1,2),t,c);if (c<>0)or((m1 in [1,3,5,7,8,10,12])and not(t in [1..31])) or((m1 in [4,6,9,11])and not(t in [1..30])) or(p and(m1=2)and not(t in [1..29])) or(not p and(m1=2)and not(t in [1..28]))then k:=1 else d1:=t;if k=1 thenbeginwriteln('Дата введена неверно!');endelsebeginif(m1=1)and(d1=1)then begin d2:=31; m2:=12; g2:=g1-1; end
else if ((m1 in [5,7,10,12]) and(d1=1))then begin d2:=30; m2:=m1-1; g2:=g1; end
else if ((m1 in [2,4,6,8,9,11]) and(d1=1))then begin d2:=31; m2:=m1-1; g2:=g1; end
else if(m1=3)and (d1=1) then begin if p then d2:=29 else d2:=28; m2:=m1-1; g2:=g1; end
else begin d2:=d1-1; m2:=m1; g2:=g1; end;writeln('Предыдущая дата:');if d2<10 then write('0',d2,'.')else write(d2,'.');if m2<10 then write('0',m2,'.')else write(m2,'.');write(g2);end;end.
//Pascal
//1
begin
writeln((15 div 4)*18);
end.
//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.
//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.
//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.
//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.
//1
begin
writeln((15 div 4)*18);
end.
//2
var a, b, c: real;
begin
write('Введите стороны треугольника A B C: '); readln(a, b, c);
writeln('Периметр = ', a + b + c);
end.
//3
var a, b: real;
begin
write('Введите стороны прямоугольника A B: '); readln(a, b);
writeln('Площадь = ', a * b);
writeln('Периметр = ', 2 * (a + b));
end.
//4
var a, b, c: real;
begin
write('Введите ребра A, B, C: '); readln(a, b, c);
writeln('Площадь = ', (2*(a*b+b*c+a*c)):0:1);
writeln('Объем = ', (a*b*c):0:1);
end.
//5
var r: real;
begin
write('Введите радиус: '); readln(r);
writeln('Длина окружности = ', (2 * pi * r):0:1);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Бұлттық технологиялар жайлы тест ответпен
Автор: minchevaelena23
Доброго времени суток, с информатикой
Автор: Mbkozlov6
Как можно составить план презентация о себе
Автор: tolyan791
отправьте все решения которые сделали за 9 и 10 класс по информатике по братский