var n, y, i, x: integer;
begin
randomize(); // датчик случайных чисел
y := 0;
n := 4; // сколько чисел выводить
for i := 1 to n do
begin
x := random (20) - 10; // из диапазона
y :=y+x;
writeln('x=', x,' y=', y ); // печатаем значение
end;
end.
Дело в том , что понятие культуры- очень широкое. Идёт всё это от греков – считается , что культура это что–то искусственное – то есть созданное человеком. Культура – это некая надстройка над природой. В этой надстройка мы проводим всё больше времени (по сравнению с дикой природой), это своеобразный мир – второй мир созданный человеком.
Государство тоже является культурным проектом, который внедрялся и шифровался постепенно. Постепенно возникала его структура.
var n, i, x: integer;
begin
randomize(); // датчик случайных чисел
n := 7; // сколько чисел выводить
for i := 1 to n do
begin
x := random (35) -21; // из диапазона
writeln(x); // печатаем значение
end;
end.
var n, y, i, x: integer;
begin
randomize(); // датчик случайных чисел
n := 4; // сколько чисел выводить
for i := 1 to n do
begin
y := 0;
x := random (20) - 10; // из диапазона
y :=y+x;
writeln('x=', x,' y=', y ); // печатаем значение
end;
end.
begin
var x, n, z:integer;
var k:boolean;
k:=true; //присваиваем значение истины (в том смысле что ряд идет на повышение)
z:=1; //начальное значение
n:=20; //предел счетчика цикла
for x:=1 to n do //цикл, который выполнится n раз
begin //начало тела цикла
writeln ( 'z=' , z); //выведем значение переменной z, так как при первом витке оно соответствует условию задачи
{после того как мы вывели очередное значение z, нам необходимо задать правило,
