Ответ:
Информация хранится в компьютере в двоичном символе (0 или 1)
Один символ (единица или ноль) - это один бит.
8 бит - 1 байт.
1000 байт - 1 килобайт
1000 килобайт - 1 мегабайт.
1000 мегабайт - 1 гигабайт.
1000 гигабайт - 1 терабайт.
1000 терабайт - 1 петабайт.
Объяснение:
Ответ:
По моему субъективному мнению- Тинкер.
Var
i, n: integer;
begin
i := 1;
read(n);
repeat
i := i + 1;
if(n mod i = 0) and (n <> i) or (n = 1) then
begin
write('Число ', n, ' не является простым');
exit;
end;
until i = trunc(sqrt(n)) + 1;
write('Число ', n, ' является простым');
end.
Напишу так алгоритм / ответ
x:=1 / 1
y:=3∗x
/ 3
y:=y+3 / 6
y:=y∗x / 6
y:=y+4 / 10
y:=y∗x / 10
y:=y+5 / 15
Надеюсь мое объяснение вам помогло. Буду рад если вы отметите мое решение как лучшее
Примечание:
Уравнение окружности имеет вид:
Решение:
Рассмотрим 3 случая:
1) <em>Точка лежит внутри окружности.
</em>Пусть даны координаты точки x и y.
Если их сумма квадратов не превышает квадрата радиуса, т.е.:
3) <em>Точка лежит вне окуржности
</em>Если точка с координатами A(x;y), где сумма квадратов координаты больше квадрата радиуса, то точка лежит вне окружности, т.е.
Программа:
program zadacha_1;
var x,y,r:real;
begin
writeln('Введите координаты точки');
readln(x,y);
writeln('Введите радиус окружности');
readln(r);
if sqr(x)+sqr(y)<sqr(r) then writeln ('Точка внутри окружности')
else if sqr(x)+sqr(y)=sqr(r) then writeln ('Точка на окружности')
else writeln('Точка вне окружности');
end.