funny-furiya
?>

Нарисовать 50 концентрических окружностей с точкой в центре. паскаль рисует только одну окружность, вот код: uses graphabc; var r, y, x: integer; begin setwindowsize(800, 600); y: =300; x: =400; for r: =1 to 50 do circle(x, y, r); end.

Информатика

Ответы

turovskaya69
Ты перед END. должен добавить выражение которое увеличивает r на один пока r не станет 50. r=r+1; . Но это не точно (про выражение) , а суть правильна.
skorykin123371

Вычислительная техника является важнейшим компонентом процесса вычислений и обработки данных. Первыми при для вычислений были, вероятно, всем известные счётные палочки, которые и сегодня используются в начальных классах многих школ для обучения счёту. Развиваясь, эти при становились более сложными, например, такими как финикийские глиняные фигурки, также предназначаемые для наглядного представления количества считаемых предметов. Такими при похоже, пользовались торговцы и счетоводы того времени.

Постепенно из простейших при для счёта рождались всё более и более сложные устройства: абак (счёты), логарифмическая линейка, арифмометр, компьютер. Несмотря на простоту ранних вычислительных устройств, опытный счетовод может получить результат при простых счётов даже быстрее, чем нерасторопный владелец современного калькулятора. Естественно, производительность и скорость счёта современных вычислительных устройств уже давно превосходят возможности самого выдающегосярасчётчика-человека.


А лучше забить в поисковике))

natkul22
Следующее число, большее 125₁₀, равно 126₁₀ или 1111110₂
Посмотрим, может ли оно получиться по заданному алгоритму.
На шаге 2а определяется "бит четности" путем подсчета количества единиц в двоичной записи числа. Если оно четно, к записи числа справа дописывается 0, если нечетно - единица.
На шаге 2б повторяются действия предыдущего шага.
Отбросим две правые цифры в записи 1111110₂ и посмотрим, как на получившемся числе работает предложенный алгоритм.
1111110 ⇒ 11111, число единиц нечетное, дописываем 1, получаем 111111, теперь число единиц четное, дописываем 0 и получаем 1111110, т.е. как раз то число, которое у нас было при переводе 126 в двоичную систему счисления.
А исходное число - это 11111₂ = 31₁₀
ответ: 31

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Нарисовать 50 концентрических окружностей с точкой в центре. паскаль рисует только одну окружность, вот код: uses graphabc; var r, y, x: integer; begin setwindowsize(800, 600); y: =300; x: =400; for r: =1 to 50 do circle(x, y, r); end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Штакина1568
houseoftorture138
Елена
Павловна897
denisov4
Reutskii-Kirilovskii1625
vitalina3012
sharaeva-is
Cannabikh
frsergeysavenok
julia3594265843
denbelousov963
kia80
aivanova
moskvabelarus