program Cikle;
uses crt;
var a,b,i,k:integer;
Begin
clrscr;
write('Введите А: '); readln(a);
<span>write('Введите B: '); readln(b);
</span>if a>b then begin i:=a; a:=b; b:=i end;
{_______________________________________}
{1 способ реализации - цикл for}
k:=0;
for i:=a to и do k:=k+i;
{_______________________________________}
{2 способ реализации - цикл с предусловием while}
k:=0;
while a<=b do begin
k:=k+a;
a:=a+1 end;
{_______________________________________}
{3 способ - цикл с постусловием repeat}
k:=0;
repeat
k:=k+a;
a:=a+1;
until a>b;
{_______________________________________}
{Окончание программы одинаковое для всех способов}
Writeln('Сумма элементов в интервале [A;B] равна ', k)
readln
End.
<span>2Мбайта = 2048 Кбайт = 2097152 байт = 16Мбит = 16777216 бит</span>
CB87<span> − </span>AB28<span> = </span>205<span>F
Решение
</span>CB87<span> = 52</span><span>103
</span>AB28<span> = 43</span><span>816
</span>52103-43816=8<span>287
</span>8287=205F<span>
</span>
Каждый человек имеет авторское право на результат своего творчества. Цифровая репутация зачастую является компрометирующей и даже может повлиять на твою жизнь, используя персональные данные. Важно знать, что собственность - это не застывшие экономические отношения, а активно развивающиеся. Вчера мы задержались, чтобы уточнить все нюансы насчет автоматического подключения к интернету.
Program abc;
const
<span> n = 10;
</span>var
<span> m: array [1..n] of integer;
</span><span> i: integer;
</span>begin
<span> for i := 1 to n do
</span><span> begin</span><span> m[i] := sqr(i) - 1;
</span><span> writeln(m[i]);</span><span>
end;
</span><span>end.</span>