М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
mariagievich
mariagievich
13.04.2022 00:51 •  Информатика

Вычислить количество точек с целочисленными координатами,находящихся в круге радиуса r (r> 0) с центром в начале координат. (паскаль. цикл. без массива )

👇
Ответ:
W1LDOR
W1LDOR
13.04.2022
Var
  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
4,5(15 оценок)
Открыть все ответы
Ответ:
gern74p01ako
gern74p01ako
13.04.2022

Интернет серфинг — это простейшая возможность заработка в сети. Суть данного заработка состоит в том, что пользователи просматривают страницы интернета в течении определенного количества времени (обычно около 30с), за что получают плату.

Из определения: биллинг — комплекс процессов и решений на предприятиях связи, ответственных за сбор информации об использовании телекоммуникационных услуг, их тарификацию, выставление счетов абонентам, обработку платежей.

Фи́шинг (англ. phishing от fishing «рыбная ловля, выуживание») — вид интернет-мошенничества, целью которого является получение доступа к конфиденциальным данным пользователей — логинам и паролям.

крЭкинг – это взлом шароварного(платного, от слова «Shareware») софта(программного обеспечения), с целью получения полнофункциональной версии, разблокировки ограничений, обусловленных нелицензионной или незарегистрированной копией

Объяснение:

4,4(29 оценок)
Ответ:
werer1973
werer1973
13.04.2022
Const
    handsfree = false;
    nmax = 4;
    random_min = -50;
    random_max = 50;

var
    a: array[1..nmax] of integer;
    i, n, j: integer;
    sum, product, harmonic: real;
    k: integer;

begin
    {ввод массива}
    n := nmax;
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(random_max - random_min) + random_min;
            write(a[i], ' ');
        end
        else
            readln(a[i]);
    end;
    writeln();
    
    {подсчет элементов}
    k := 0;
    for i := 1 to n do
        if a[i] mod 2 = 0 then
            k := k + 1;
    writeln('quantity = ', k);
    
    {подсчет суммы и произведения и агригатов}
    sum := 0;
    for i := 1 to n do
        sum := sum + a[i];
    writeln('sum = ', sum);
end.
4,5(95 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ