Для вирішення потрібно всього лише порахувати кількість символів з пробілами, їх є 45(враховуючи пропуск зпочатку та крапку вкінці), оскільки кодуєтся одним байтом, потріно 1*45=45. Відповідь - 45байт
А)Начало ->
Ввод массива ->
Ввод X ->
Ввод Y ->
Если X>Y
->no->End
->yes->
p=0 ->
∨-> если элемент массива (p) > X, элемент массива (p) = X ->
если элемент массива (p) < Y, элемент массива (p) = Y ->
p = p + 1 -> если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
б)Начало ->
Ввод массива ->
p=0 ->
∨-> если элемент массива (p) \%(остаток от деления на) 3=0
->yes->
->no-> элемент массива (p) =элемент массива (p)\%3
->p=p+1
->если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
<span>Система, включающая в себя другие. Это более сложная система, имеющая свое предназначение, структуру, законы, ресурсы и сознание, в которую заданная система входит как подсистема </span>
<span>В соответствии с принципом иерархичности любая система одновременно является надсистемой для своих элементов и подсистемой для своей надсистемы. </span>
Подсистема <span>- это набор объектов и подсистем, обеспечивающих некоторую функциональность, и взаимодействующих между собой в соответствии с их интерфейсами. Интерфейс подсистемы представляет собой подмножество объединения интерфейсов всех объектов и подсистем, составляющих эту подсистему. В состав подсистемы может входить один, или более взаимозависимых объектов и/или подсистем.</span>
Если нужен паскаль то вот:
var a,b: integer;
begin
writeln('Введите сторону a');
readln(a);
writeln('Введите сторону b');
readln(b);
writeln;
writeln('Периметр=',(a+b)*2);
readln;
end.
задай var x,y:real;
так как в формуле есть деление.