Var n : Integer;
Begin
Readln(n);
n:=(n mod 10)*1000+(n mod 1000 div 10)*10+(n div 1000);
Writeln(n);
end.
Ввод: 1234
Вывод: 4231
В древнее время первобытные люди записывали или же вырезали информацию на камнях в скалах,пещерах.Они рисовали животных,сцены охоты.В древнем Египте люди использовали папирус,сделанный из бамбука.На сегодняшний день мы можем записывать информацию в интернете,блокноте и т.Д.
Архиватор - WinRAR
Коммуникационная программа - <span>Outlook Express
</span>Системы программирования - <span>Microsoft Visual Basic
Электронные таблицы - Microsoft Excel
Игры - CS:GO
Графический редактор - Paint
Текстовый редактор - Microsoft Word</span>
Const n=15;
var a:array[1..n] of integer;
i,k,max:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(33)-15;
write(a[i]:4);
end;
writeln;
k:=0;
max:=-999;
for i:=1 to n do
begin
if a[i] mod 2 = 0 then k:=k+1;
if (a[i]>max)and(a[i]<0) then max:=a[i];
end;
writeln('k = ',k,' max = ',max);
end.
Пример:
Массив A:
14 5 5 7 -10 -13 -3 10 5 -2 -4 -5 3 -10 -14
k = 7 max = -2