1)
var a:integer;
begin
for a:=1 to 5 do
write(a,' ');
<span>end.
2)
var a:integer;
begin
for a:=5 downto 1 do
write(a,' ');
<span>end.</span></span>
Program mas;
var
mas, p_mas: array[1..15] of integer;
i: integer;
begin
randomize;
for i:= 1 to 15 do
begin
mas[i] := Random(6) + 7;
p_mas[i] := mas[i];
end;
mas[8] := mas[10] + 5;
mas[10] := mas[13];
writeln('Первоначальный массив:');
for i := 1 to 15 do
write(p_mas[i], ' ');
writeln(CRLF + 'Изменённый массив:');
for i := 1 to 15 do
write(mas[i], ' ');
end.
Может быть фирма Apple, издающая iphone?
Сама фирма была основана 1 апреля 1976 года. Анонс первого айфона состоялся 9 января 2007 года, в продаже появился 29 июня того же года.
Нужно одновременно нажать клавиши Ctrl+Alt+Del
1) 2048 * 1536 = 3145728 точек в изображении
2) 3145728 * 3 байта = 9437184 байт - размер файла
9437184 байт / 1024 = 9216 Килобайт / 1024 = 9 Мегабайт
Ответ: 9 Мб размер этого графического файла