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

Определить, является ли введенное число простым или нет? (блок-схема)​

👇
Ответ:
dashasapleva6
dashasapleva6
13.05.2021

Сделал программу. Считающую простые числа. По заданию мне нужно сделать их с цикла while без for. можно использовать if else. Решил сначала сделать if else а потом код вставить уже в while. Выкладываю вам код. Скажите Правильно я код написал. если нет. Укажите на ошибки. 

1 2 3 4 5 6 7 8 9 10 11 12 #include <iostream> using namespace std; void main () { setlocale (0, ""); int n, m; cout << "введите число: "; cin >> n; if (n % 2 == 0 && n / 2 != 0 ) cout << "  не Простое Число \n"; else     cout << "  простое\n" << endl; }

4,5(67 оценок)
Открыть все ответы
Ответ:
sumr212
sumr212
13.05.2021

Вводятся координаты (x;y) точки и радиус круга (r). Определить принадлежит ли данная точка кругу, если его центр находится в начале координат.

Будем считать, что точка принадлежит кругу, если находится внутри его или на его окружности.

Из любой точки координатной плоскости можно провести отрезок к началу координат. Если длина этого отрезка больше радиуса круга, то точка лежит за пределами круга и, следовательно, не принадлежит ему. Если же отрезок, соединяющий точку и начало координат, меньше радиуса круга с центром в начале координат или равен ему, то точка будет принадлежать кругу.

4,8(28 оценок)
Ответ:
konovalova701
konovalova701
13.05.2021
1. Для цикла For есть решение выложенное выше  от Srzontmp.

2. Почти ничего не меня получим код для цикла while:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  while i <= n div 2 do begin
    if (n mod i) = 0 then k := i;
    i:=i+1;
    end;
  writeln('наибольший делитель ', n, ' = ', k);
end.

3. Аналогично для цикла Repeat:
var
  i, n, k: integer;
begin
  i := 2;
  readln(n);
  repeat
    if (n mod i) = 0 then k := i;
    i:=i+1;
  until i> n div 2;
  writeln('наибольший делитель ', n, ' = ', k);
end.
4,6(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ