или
var i,s,n: integer;beginwhile i+7<200 dobegini := i + 7;s := s + i;n := n + 1;end;write(s/n);end.Пример работы:
ответ:Решение
АЛГОРИТМ МАЛЕНЬКИЕ КВАДРАТЫ
алг квадраты_1
нач
нц 5 раз
опустить перо
сместиться на вектор (2, 0)
сместиться на вектор (0, 2)
сместиться на вектор (- 2, 0)
сместиться на вектор (0, - 2)
поднять перо
сместиться на вектор (3, 0)
опустить перо
сместиться на вектор (1, 1)
сместиться на вектор (- 1, 1)
сместиться на вектор (- 1, - 1)
сместиться на вектор (1, - 1)
поднять перо
кц
кон
АЛГОРИТМ БОЛЬШИЕ КВАДРАТЫ
алг квадраты_2
нач
нц 4 раз
опустить перо
сместиться на вектор (2, 0)
сместиться на вектор (0, 2)
сместиться на вектор (- 2, 0)
сместиться на вектор (0, - 2)
поднять перо
сместиться на вектор (4, - 1)
опустить перо
сместиться на вектор (2, 2)
сместиться на вектор (- 2, 2)
сместиться на вектор (- 2, - 2)
сместиться на вектор (2, - 2)
поднять перо
кц
кон
АЛГОРИТМ ПРЯМОУГОЛЬНИКИ
алг прямоугольники_1
нач
нц 5 раз
опустить перо
сместиться на вектор (0, 1)
сместиться на вектор (- 3, 0)
сместиться на вектор (0, - 2)
сместиться на вектор (3, 0)
сместиться на вектор (0, 1)
сместиться на вектор (- 1, 0)
сместиться на вектор (0, - 2)
сместиться на вектор (3, 0)
сместиться на вектор (0, 2)
сместиться на вектор (- 2, 0)
поднять перо
сместиться на вектор (4, 0)
кц
кон
АЛГОРИТМ УЗОР
алг часть_1
нач
нц 4 раз
опустить перо
сместиться на вектор (0, 2)
сместиться на вектор (2, 0)
поднять перо
сместиться на вектор (- 3, - 1)
кц
кон
алг часть_2
нач
нц 4 раз
опустить перо
сместиться на вектор (0, 2)
сместиться на вектор (- 2, 0)
поднять перо
сместиться на вектор (3, - 1)
кц
кон
алг часть_3
нач
нц 4 раз
опустить перо
сместиться на вектор (2, 0)
сместиться на вектор (0, 2)
поднять перо
сместиться на вектор (- 1, - 3)
кц
кон
алг часть_4
нач
нц 4 раз
опустить перо
сместиться на вектор (0, - 2)
сместиться на вектор (2, 0)
поднять перо
сместиться на вектор (- 3, 1)
кц
кон
использовать Чертежник
алг узор_1
нач
часть_1
сместиться на вектор (5, - 5)
часть_2
сместиться на вектор (- 3, - 7)
часть_3
сместиться на вектор (- 7, 3)
часть_4
кон
АЛГОРИТМ УЗОР 2
использовать Чертежник
алг узор_2
нач
часть_3
сместиться на вектор (4, 3)
часть_4
сместиться на вектор (1, - 6)
часть_1
сместиться на вектор (- 9, 2)
часть_2
кон
Объяснение:
Интерактивная программа - это компьютерная программа, для работы которой требуется взаимодействие с пользователем. Это взаимодействие может включать в себя ввод информации, изменение информации, управление информацией или иное манипулирование данными. Большинство программ являются интерактивными.
Примером таких программ может быть «Логика для малышей»,Baby Logics, Cifiri, «Развиваем память», Монтессори, "Веселые Картинки" — инструментальный пакет для создания и решения задач, связанных со сборкой на экране упорядоченного множества объектов текстовой и графической структуры и т. д.
begin
Range(7, 200, 7).Average().Print();
end.
//PascalABC.NET 3.5.X