<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8" /><title>Первая страница.</title><style>/* здесь описаны стили оформления ссылок*/a:link { color: #0033FF; text-decoration: none; }a:hover { color:#666633; text-decoration: underline; } /* здесь описаны стили оформления контента*/ #kontent { text-align:center; }</style></head><body id="kontent"><h1 align="center">Моя первая страница!</h1><p align="center">Так можно создавать свою первую страницу.</p><p align="center">Для начала приведен простой пример, по ссылке можно посмотреть пример,<br> который создан из таблиц.</p>
https://КакаяТоСсылкаю.рф/" title="пример страницы">
пример страницы</a> построенной на таблицах.</p></body></html>
1. Объявлен целочисленный массив из 100 элементов, проиндексированных от 0 до 99.
2. Будет выведено p=2s=0
В параметрах процедуры Incr отсутствует var перед q, поэтому значение параметра при выходе из процедуры не изменится. Процедура увеличивает на 1 значение глобальной переменной p. Первоначально р=0 и два вызова процедуры сделают р=2. Значения s, как было выше пояснено, процедура не изменит, поэтому оно так и останется нулевым.
16777216 цветов можно закодировать 24 битами данных, т.к 2^24=<span>16777216
следовательно 1024*768*24=</span>18874368 бит = 2359296 байт (т.к. в 1 байте 8 бит) = 2304 Кбайт (делим на 1024) = 2,25 мегабайта
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqGen(ReadInteger('n='),1,1,(x,y)->x+y).Println
end.
<u><em>Тестовое решение:</em></u>
n= 10
1 1 2 3 5 8 13 21 34 55
Uses Crt;
Const
N = 15;
M = 10;
Var
A:array[1..N,1..M] of real;
i,j:integer;
S3,S7:real;
Begin
Randomize;
ClrScr;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to M do
Begin
A[i,j]:=random*13;
Write(A[i,j]:6:3,' ')
End;
WriteLn
End;
S3:=0;
S7:=0;
For j:= 1 to M do
Begin
S3:=S3+A[3,j];
S7:=S7+A[7,j];
End;
WriteLn('S3 = ',S3:0:3);
WriteLn('S7 = ',S7:0:3);
if S3 > S7 then WriteLn('S3 > S7')
else if S3 < S7 then WriteLn('S3 < S7')
else WriteLn('S3 = S7');
ReadLn
End.