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.
Это цикл. Начальное значение 1. Цикл будет выполняться 4 раза.
1. 1+1*2=3, теперь f равно 3.
2. 3+2*2=7, теперь f равно 7.
3. 7+3*2=13, теперь f равно 13.
4. 13+4*2=21.
После выполнения алгоритма f будет равно 21.
If x<1 Then y:=sqr(2) Else If x>1 Then y:=x+8 Else Writeln('x не должен быть=0')
Объяснение:
Если x<1, то y:=<u />
, иначе, если x>1, то y:=x+8,иначе вывести:x не должен быть=0
<em><u>Монитор — это устройство оперативной визуальной связи пользователя с управляющим устройством и отображением данных передаваемых с клавиатуры, мыши или центрального процессора.</u></em>
<em><u>Клавиату́ра — комплект расположенных в определённом порядке клавиш для управления каким-либо устройством или для ввода данных. Как правило, кнопки нажимаются пальцами рук.</u></em>
(I - объем информации, K - кол-во пикселей, i - вес одного пикселя / глубина цвета)
Дано:
K = 1024 * 768 = 786432 пикселей
По формуле (N - кол-во цветов в палитре, i - глубина цвета)
бит
I - ?
Решение:
I = K * i = 786432 * 24 = 18874368 бит
18874368.0 бит = 2359296.0 байт = 2304.0 Кбайт = 2.25 Мбайт