Var a: array[1..7] of real;
k, n: integer;
begin
readln(k, n);
for i:=1 to 7 do begin
read(a[i]);
if a[i]<>0 then if a[i]>0 then a[i]:=a[i]-a[k] else a[i]:=a[i]-a[n];
write(a[i], ' ');
Это файл, объединяющая в себе архив и исполняемый код для его распаковки. Такие архивы, в отличие от обычных, не требуют отдельной программы для их распаковки (получения исходных файлов, из которых они созданы), если исполняемый код можно выполнить в указанной операционной системе. Это удобно, когда неизвестно, есть ли у пользователя, которому передаётся архив, соответствующая программа распаковки.
Паскаль ABC.net версии 3.3.5
var
n: word;
begin
write('Введите номер дня недели: ');
readln(n);
case n of
1: writeln('Понедельник');
2: writeln('Вторник');
3: writeln('Среда');
4: writeln('Четверг');
5: writeln('Пятница');
6: writeln('Суббота');
7: writeln('Воскресенье');
else writeln('Нет такого номера дня недели');
end;
end.
10*10=100 байт. Если ваш преподаватель будет возражать, напишите, я распишу, как это объяснить.
Пример оптической памяти - CDRom, DVDRom, BlueRay.
магнитная память - Жесткий диск винчестера,
электронная память - память RAM, Flash, Solid State Drive.
В целом их можно расположить в таком порядке:
<span>1 - оптическая
2 - магнитная
3 - электронная</span>
Хотя в реальности все намного сложнее и зависит от конкретной технологии.