Информатика. Помогите пожалуйста! Хоть один пункт :)
5-9 класс
|
var
x0,y0,x1,y1,r1,r2,k:real;
i,n:longint;
x,y,s:array[1..100] of real;
begin
x0:=0; y0:=0;
readln(r1); readln(r2);
k:=sqrt(sqr(x0-x1)+sqr(y1-y0));
if (k<r2) and (k>r1) then ('Yes') else writeln('No');
end.
var
x0,y0,x1,y1,r1,r2,k:real;
i,n,j:longint;
x,y,s:array[1..100] of real;
begin
x0:=0; y0:=0;
readln(r1); readln(r2); readln(n);
for i:=1 to n do readln(x[i],y[i]);
for i:=1 to n do
s[i]:=sqrt(sqr(x0-x[i])+sqr(y[i]-y0));
for i:=1 to n do
if (s[i]<r2) and (s[i]>r1) then inc(j);
writeln(j/n*100);
end.
Другие вопросы из категории
1)программа, которая выяснит символы от 91 до 96 (тип char)
2) соединение (написать программу по типу char)
столе лежат в четыре ряда фигуры:
треугольник, ромб, круг и квадрат. Цвета
этих фигур - зеленый, желтый, синий,
красный.
Фигура красного цвета
лежит между зеленой и синей, справа от
желтой фигуры лежит ромб, круг лежит
правее треугольника и ромба, причем
треугольник лежит не с краю и, наконец,
фигура синего цвета не лежит рядом с
фигурой желтого цвета. Какая фигура
какого цвета?
Читайте также
1.В ящике имеется 3 чёрных и 5 белых шаров.Какое наименьшее число шаров нужно взять из ящика ( не заглядывая в него), чтобы среди вытянутых шаров:.
1)Оказался хотя бы 1 чёрный
2)Оказался хотя бы 1 белый
3)Оказались хотя бы 2 чёрных
4)Окаазались хотя бы 2 белых
Если можно с решением,логическим рядом.
2. В одной книге было написано 100 следующих утерждений.
"В этой книге роно одно неверное утверждение"
"В этой книге ровно два неверных утверждения"
............................................................................................
"В этой книге ровно сто неверных утверждений.
Какое из этих утерждений верное?
Судя по моим мыслям,это явно не 3, тогда это получается правда, что противоречит смыслу предложения. Тогда какое получается? Я не знаю.Помогите пожалуйста. Напишите всё с решением пожалуйста.
Ах да,чуть не забыла. Если кто -то знает бесплатный решебник ( без всяких файлообменников) напишите пожалуйста.
заглядывая в него), чтобы среди вытянутых шаров:. 1)Оказался хотя бы 1 чёрный 2)Оказался хотя бы 1 белый 3)Оказались хотя бы 2 чёрных 4)Окаазались хотя бы 2 белых Если можно с решением,логическим рядом. 2. В одной книге было написано 100 следующих утерждений. "В этой книге роно одно неверное утверждение" "В этой книге ровно два неверных утверждения" ............................................................................................ "В этой книге ровно сто неверных утверждений. Какое из этих утерждений верное? Судя по моим мыслям,это явно не 3, тогда это получается правда, что противоречит смыслу предложения. Тогда какое получается? Я не знаю.Помогите пожалуйста. Напишите всё с решением пожалуйста. Ах да,чуть не забыла. Если кто -то знает бесплатный решебник ( без всяких файлообменников) напишите пожалуйста.
второе задание ну или хотя бы только первое .Это вопрос жизни и смерти помогите пожалуйста P.S задание во вложениях.заранее спасибо и знайте если вы поможете значит вы самый добрый и отзывчивый человечек!)
1)S=1+2+3...+10
for, while, repeat.
2)S=2+4+6+8...+20
for, while, repeat.
надо короче решить с помощью этих трех программ этот пример. что бы выходил этот ответ...помогите пожалуйста.
Составьте программу, которая формирует массив из 40 случайных целых чисел от 0 до 20 и вычисляет:
1). сумму чисел, не превышающих 10;
2). сумму чисел,кратных 3. Помогите пожалуйста,написать эту программу на PaskalABC.