program cikl;
var a,b,c,i,j,k:integer;
begin
writeln('BBedute A,B,C');
readln(a,b,c);
i:=a;
j:=b;
k:=c;
a:=j;
b:=k;
c:=i;
writeln('a=',a,'b=',b,'c=',c);
readln
end.
ответ: Программа рабочая, проверена.
Program zadacha;
var
a: array [1..50] of integer; // размерность массива = 50
i,k: integer;
begin
begin
for i:=1 to 50 do
a[i] := Random(100); // числа от 0 до 100 будут присутствовать в массиве
writeln('Заполненный массив: ');
for i:=1 to 50 do
write(a[i],' '); end; // выводим массив на экран до проверки
writeln; //новая строка
writeln('Введите значение числа K: '); readln(k);
writeln('Элементы массива, кратные K:');
for i:=1 to 50 do
if (a[i] mod k = 0) then write(a[i],' ');
end.
Объяснение:
i - порядковый номер элемента
a - сам массив
k - вводимое число
В остальном оставила комментарии.
Размерность массива и его диапазон указан в программе числами, т.к. в задаче не было вопроса о вводе элементов или вводе размерности.
ответ:
орна́мент (лат. ornamentum «украшение») — узор, основанный на повторе и чередовании составляющих его элементов; предназначается для украшения различных предметов (утварь, орудия и оружие, текстильные изделия, мебель, книги и так далее), архитектурных сооружений (как извне, так и в интерьере), произведений пластических искусств (главным образом прикладных), у первобытных народов также самого человеческого тела (раскраска, татуировка).
орнамент,связанный с поверхностью, которую он украшает и зрительно организует, как правило, выявляет или акцентирует архитектонику предмета, на который он нанесён. орнамент либо оперирует отвлечёнными формами, либо стилизует реальные мотивы.
объяснение:
var a,b,c,a1,b1,c1:real;
begin
readln(a,b,c);
b1:=a;
c1:=b;
a1:=c;
writeln(a1,b1,c1);
end.