Const n=10;
var a:array[1..n] of integer;
i,c:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(51);
write(a[i],' ');
end;
writeln;
c:=a[n];
for i:=n downto 2 do a[i]:=a[i-1];
a[1]:=c;
for i:=1 to n do write(a[i],' ');
writeln;
end.
Пример:
8 2 24 20 27 44 25 41 16 21
21 8 2 24 20 27 44 25 41 16
Функция калькулятора равносильна функции процессора. Обработка инфо.
Человек в этом случае является устройством ввода.
beginvar x1, x2, x3, x4, y1, y2, y3, y4: double; writeln('Введите x1'); readln(x1); writeln('Введите x2'); readln(x2); writeln('Введите x3'); readln(x3); writeln('Введите x4'); readln(x4); writeln('Введите y1'); readln(y1); writeln('Введите y2'); readln(y2); writeln('Введите y3'); readln(y3); writeln('Введите y4'); readln(y4);if((y1-y4=y2-y3) AND (x2-x1=x3-x4)) thenwriteln('ABCD - параллелограмм')else writeln('ABCD - не параллелограмм');end.
Просмотр и изменение файла внутри ,внешние изменения недоступны
Все просто пара кроликов = 2
Значит 2 умножить на кол-во месяцев
2*7
7 потому что первые кролики дали приплод спустя пару месяцев