Слова и буквы Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Напишите программу, которая считывает слова, слово «стоп» — сигнал остановки (оно не должно принимать участие в анализе). Из введённых слов нужно выбрать самое длинное и самое короткое (гарантируется, что все они имеют разную длину) и проверить, есть ли все буквы короткого слова в длинном, при этом количество повторений букв не учитывается. Вывести «ДА» или «НЕТ» в зависимост
r, r2, x, y: real;
n: integer;
begin
Write('Введите величину радиуса окружности: '); Readln(r);
r2 := sqr(r); n := 0;
{1. Точки в первой четверти без учета попавших на оси }
x := 1;
while x <= r do
begin
y := 1;
while y <= r do
begin
if sqr(x) + sqr(y) <= r2 then n := n + 1;
y := y + 1
end;
x := x + 1
end;
n := 4 * n; { учли точки в остальных трех четвертях }
n := n + 1; { учли точку в начале координат }
n := n + 4 * trunc(r); { учли точки, находящиеся на координатных осях }
Writeln('Число точек, принадлежащих кругу, равно ', n);
end.
Тестовое решение:
Введите величину радиуса окружности: 3
Число точек, принадлежащих кругу, равно 29