Begin
writeln(ord('Б')+ord('А')+ord('Й')+ord('Т'));
end.
1) 133 кБайт = 136192 байт = 1089536 бит размер файла для передачи
2) 128 Кбит/сек = 131072 бит/сек скорость передачи по сети
3) 1089536 бит / 131072 бит/сек = 8, 31 сек - времени будет проходить передача этого файла
Ответ: 8,31 сек
Program Maslovaalisa;
const n=7;
var last: array[1..n] of integer;
var new: array[1..n] of integer;
i: integer;
begin
writeln('********************************');
for i:=1 to n do
begin
writeln('Введите температуру за ',i,'-й день недели: ');
write(' - в прошлом году ');readln(last[i]);
write(' - в этом году ');readln(new[i]);
end;
writeln('*** alphaues is thinking... ***');
writeln();
for i:=1 to n do
begin
if last[i] > new[i] then
writeln('В ',i,'-й день недели в прошлом году было теплее, чем в этом. Бр-р-р...')
else
if last[i] < new[i] then
writeln('В ',i,'-й день недели в прошлом году было холоднее, чем в этом. Уф-ф-ф...')
else
writeln('Удивительно! В ',i,'-й день недели в прошлом году была такая же температура, как в этом!');
writeln('********************************');
end;
end.
Обычный массив: берем список покупок. Допустим, нужно купить молоко, хлеб, яйца, чай и мороженое. Всего покупок: 5. И мы перебираем каждую покупку. В массиве можно записать как: array [1..5], так как 5 покупок. То же молоко под цифрой 1, значит это 1 элемент массива. Чай будет 4 элементом массива.
Двухмерный массив: берем многоквартирный дом. В доме 3 этажа, на каждом этаже 4 квартиры. Соответственно этаж можно приравнять как array [1..3,1..4] 1..3 это количество этажей, 1..4 это кол-во квартир. Если в доме 3x4=12 этажей, то получается 12 элементов массива.
Так же, элементы массива могут быть как одинаковыми, так и разными, но чаще второе. (Пример: дан массив с двумя элементами. Первый элемент равен 5, второй 33)
Создать массив в Pascal:
В var напишите x:array [y..z] of what
x - название массива
y - начальная цифра массива (обычно 1, так и представим)
x - последняя цифра массива (представим как 10)
what - тип (integer, real и т.д.)
Найти значение массива и редактировать его:
a:=x[4]
Данным действием мы присваиваем 4 элемент массива для a.
x[4]:=b
Данным действием мы присваиваем b для 4 элемента массива.
Если что-то непонятно, задайте вопрос в комментарий. Постараюсь объяснить именно то, что вам непонятно.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadAllText('mas102.txt').ToWords;
var s:=BigInteger(0);
foreach var w in a do s+=w.ToBigInteger;
Writeln(s mod 104);
end.
<u>Результат</u>
20