D. Последовательность ограничение по времени на тест: 1 секунда
ограничение по памяти на тест: 266 мегабайт
ввод: стандартный ввод
вывод: стандартный вывод
Есть последовательность следующего типа: "123112233111222333111122223333...". Найдите его п-й элемент,
Входные данные
В первой строке входных данных задается одно целое числе п (1 <n < 10°).
Выходные данные
Выведите одно целое число — ответ на задачу.
Примеры
Входные данные
Скопировать
1
выходные данные
Скопировать
1
Входные данные
Скопировать
5
выходные данные
Скопировать
1
Входные данные
18
Скопировать
выходные данные
3
Скопировать
// Внимание! Если программа не работает, обновите версию!
type
Point=(real,real);
procedure GetPoint(var Q:Point);
begin
var a,b:real;
Write('Введите координаты точки: '); Read(a,b);
Q:=(a,b)
end;
function Distance(a:Point):=Sqrt(Sqr(a[0])+Sqr(a[1]));
begin
var a,b:(real,real);
GetPoint(a);
GetPoint(b);
var d1:=Distance(a);
var d2:=Distance(b);
if d1<d2 then Writeln('Первая точка ближе')
else
if d1>d2 then Writeln('Вторая точка ближе')
else Writeln('Точки равноудалены')
end.
Пример
Введите координаты точки: 13.7 -11.25
Введите координаты точки: 18 12.4
Первая точка ближе
#include <iostream>using namespace std;const int N = 200;
int main() { setlocale(LC_ALL, "rus"); int data[N]; int Pol, Otr, sizemas; Pol = 0; Otr = 0; cout << "Введите размер массива" << endl; cin >> sizemas; cout << "Введите элементы массива (без 0)" << endl; for(int i=0; i<sizemas; i++) { cin >> data[i]; } for(int i=0; i<sizemas; i++) { if(data[i] >= 0) { Pol++; } else { Otr++; } } cout << "Положительных элементов: " << Pol << endl << "Отрицательных элементов: " << Otr << endl; return 0;}