//Pascal
//1)
var
A: array [1..20] of integer;
i, j, k: integer;
begin
randomize;
writeln('***Сгенерированный массив***');
for i := 1 to 20 do
begin
A[i] := random(200)+100;
write(A[i]:4);
end;
for i := 1 to 20-1 do
for j := 1 to 20-i do
if A[j] > A[j+1] then
begin
k := A[j];
A[j] := A[j+1];
A[j+1] := k;
end;
writeln;
writeln('***Массив после сортировки***');
for i := 1 to 20 do
write(A[i]:4);
readln;
end.
//2)
var
A: array [1..10, 1..10] of integer;
i, j, k, N, M, buf: integer;
begin
randomize;
writeln(' ***Сгенерированный массив***');
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
A[i, j] := random(51);
write(A[i, j]:4);
end;
writeln;
end;
write('Введите номер столбца для сортировки: ');
readln(M);
for j:=m to m do
begin
for k:=1 to 10 do
for i := 10 downto k+1 do
if A[i-1,j]>A[i,j] then
begin
buf:=A[i,j];
A[i,j]:=A[i-1,j];
A[i-1,j]:=buf;
end;
end;
writeln;
writeln(' ***Массив после сортировки***');
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(A[i, j]:4);
writeln;
end;
write('Введите номер строки для сортировки: ');
readln(N);
for i:=n to n do
for j:=1 to 10-1 do
for k:=j+1 to 10 do
if A[i,j]>A[i,k] then
begin
buf:=a[i,j];
A[i,j]:=A[i,k];
A[i,k]:=buf;
end;
writeln;
writeln(' ***Массив после сортировки***');
for i := 1 to 10 do
begin
for j := 1 to 10 do
write(A[i, j]:4);
writeln;
end;
readln;
end.
В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.
Информатизация – это производное от слова информация. Информатизация – это процесс получения, использования, хранения, передачи информации.
На протяжении ХХ века сменялось множество способов обмена информацией. Если в XIX веке носителем информации была бумага, а средством передачи была почтовая служба, то в ХХ веке информация стала передаваться гораздо быстрее с помощью телеграфа, в голосовой форме обмениваться информацией можно по телефону, радио и телевидение призваны только для получения человеком информации. В наши дни есть огромное количество способов передачи информации, причем в любой форме. Телефонные линии до сих пор остаются самым удобным средством передачи информации, но теперь ими обслуживаются не только телефоны, но и самое большое достижение процесса информатизации – Internet, содержащий большую часть информации со всей планеты.
Сейчас информатизация не мыслима без компьютера, так как он изначально создавался как средство обработки информации и только теперь он стал выполнять множество других функций: хранение, преобразование, создание и обмен информацией. Но прежде чем принять привычную сейчас форму компьютер претерпел три революции. Первая компьютерная революция свершилась в конце 50-х годов; ее суть можно описать двумя словами: компьютеры появились. Изобретены они были не менее чем за десять лет до этого, но именно в то время начали выпускаться серийные машины, эти машины перестали быть объектом исследований для ученых и диковинкой для всех остальных. Через полтора десятилетия после этого ни одна крупная организация не могла себе позволить обходиться без вычислительного центра. Если тогда заходила речь о компьютере, сразу же представлялись заполненные стойками машинные залы, в которых напряженно думают люди в белых халатах. И тут свершилась вторая революция. Практически одновременно несколько фирм обнаружили, что развитие техники достигло такого уровня, когда вокруг компьютера не обязательно воздвигать вычислительный центр, а сам он стал небольшим. Это были первые мини-ЭВМ. Но прошло еще десять с небольшим лет, и наступила третья революция – в конце 70-х возникли персональные компьютеры. За короткое время, пройдя путь от настольного калькулятора до полноценной небольшой машины, ПК заняли свои места на рабочих столах индивидуальных пользователей.
Компьютер – это самое популярное средство для обработки, хранения и передачи информации и по сей день, но так как в наши дни информации становится все больше, то и компьютеры претерпевают значительные изменения. Для удобства пользователей стали выпускаться, переносные и карманные компьютеры, подключенные к глобальной информационной сети Internet, чтобы пользователь мог получить необходимую информацию в любом месте, в удобное для него время.
Но так как потоки информации только увеличиваются то для ее создания, обработки, хранения и передачи необходимо разрабатывать все новые и новые средства и приспособления. Существует множество компаний и корпораций, специализирующихся на разработках программного обеспечения, операционных систем, усовершенствовании и разработке новых более совершенных компьютеров, приспособлений для ввода и вывода информации, аксессуаров для удобства обращения с компьютером и ускорения обработки информации.
А самому, не?
1. def func():
i, summ = 0,0
while i < 5:
i += 1
x = int(input())
if (x % 4 == 0) and (x % 10 == 6):
summ += x
print(summ)
func()
2.def speed():
n = int(input())
i = 0
maxSpeed = 0
text = 'NO'
while i < n:
i += 1
x = int(input())
if x < 30:
text = 'YES'
elif x > maxSpeed:
maxSpeed = x
print(maxSpeed, text)
speed()
Var
s,g:string;
sum:integer;
begin
g:='бвгджзйклмнпрстфхцчшщБВГДЖЗЙКЛМНПРСТФХЦЧШЩ';
read(s);
sum:=0;
for var i:=1 to length(s) do
if (pos(s[i],g)>0) then sum:= sum+i;
writeln(sum);
end.
<span>//ABC Pascal
</span>