Напишите программу, определяющую, лежит ли точка А (ха, уа) на окружности х2+у2=r2, на ней или под ней.

Знания

Информатика

1 ответ:

лариса джаман4 года назад

0 0

If (xa^2 + ya^2)>r^2 then writeln('Вне окружности')
if (xa^2 + ya^2)<r^2 then writeln('В окружности')
if (xa^2 + ya^2)=r^2 then writeln('На окружности') (имеется ввиду на линии окружности)

Читайте также

Почему выходит 50?s = 0for n in range(3,8): s = s +2*nprint (s)

Нетруненко

1) s=0+3*2=6
2)s=6+4*2=14
3)s=14+5*224
4)s=24+6*2=36
5)s=36+7*2=50

0 0

1 год назад

Написать программу проверки знания даты начала второй мировой войны. В случае неверного ответа пользователя программа должна выв

Николай222 [17]

Var a,b:real;
begin
writeln('Введите кол-во фунтов');
readln(a);
b:=a*409.5;
writeln('граммов b=',b,'г');
b:=b/1000;
writeln('b=',b,'кг');
readln;
<span>end.

Ну как-то так</span>

0 0

4 года назад

Написать программу для выполнения задачи y=5-x в степени 2 /2

Осознанный [50]

Var
y,x: integer;
begin
read(x);
y:=(5-x)^(2/2);
write(y);
end.

0 0

4 года назад

Разберите программу,которая заполняет массив а(1..10) случайными целыми числами в диапазоне от 1 до 10 и выводит на экран индекс

Govoru to chto dumau

Var ar:array[1..10] of integer;
i:integer;
begin;
randomize;
writeln('Array');
for i:=1 to 10 do
begin;
ar[i]:=random(1,10);
write(ar[i]:4);
end;
writeln;
writeln('Result:');
for i:=1 to 10 do
if ar[i] mod 2=0 then write(i:4);
<span>end.</span>

0 0

4 года назад

Указаны пути от корневого каталога к некоторым файлам, хранящимся на магнитном диске. Заглавными буквами обозначены имена катало

zod888

1. Создаешь папку BOX
2.В папке BOX папку LETTER
3. В папке LETTER создаешь текстовый документ peter.txt и kate.txt
4.В папке LETTER создаешь папку WORK
5. В папке WORK создаешь текстовый документ april.txt и may.txt
6. В папке LETTER создаешь папку FREND
7. В папке FREND создаешь папку SCHOOL
8. В папке SCHOOL создаешь текстовый документ mary.txt
9. В папке FREND создаешь текстовый документ sport.txt

0 0

4 года назад