Program abc;
var a,b,i: real;
begin
a:=10; // 10 км за день
b:=1; // счетчик дней
Repeat
a:=a+a*0.1; // +10% от пробега предыдущего
b:=b+1; // счетчик дней
Until a>20; //суммарный пробег за все дни превысит 20км
writeln ('Пробег превысил 20км. на день № ',b);
Repeat
a:=a+a*0.1; // +10% от пробега предыдущего
b:=b+1; // счетчик дней
Until a>100; //суммарный пробег за все дни превысит 100км
writeln ('Пробег превысил 100км. на день № ',b);
<span>end.</span>
Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
<em>Нужно посчитать байты слова:</em>
24 * 2 = 48 байта
<em>Зная, что в 1 байте содержится 8 бит делаем следующее:</em>
48 байта * 8 = 384 бит
<em>Ответ: 384 бит</em>
<span> Цикл - это замечательное изобретение, которое, в сущности, и делает компьютеры такими ценными. Он позволяет многократно повторить любую часть программы. Цикл не может выполняться вечно, он заканчивается по какому-либо условию. Проверка этого условия может производиться в начале каждого повторяющегося шага, в этом случае цикл называется ПОКА. При проверке условия в конце каждого шага цикл называется ДО. Разновидностью цикла ДО является цикл ПЕРЕСЧЕТ.
10.1.Оператор цикла WHILE (цикл ПОКА).
Формат оператора:
WHILE логическое выражение DO;
Оператор будет повторятся пока истинно логическое выражение. Перед каждым повторением оператора значение логического выражения вычисляется заново. Если необходимо повторить несколько операторов, их следует объединить в составной оператор, т.е. заключить в операторные скобки begin ... end. Этот цикл может не выполниться ни разу, если условие при входе в него оказалось ложным. Таким образом, цикл ПОКА содержит условие повторения цикла.
Пример 1. Программа подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N.
</span><span>Program Summa;
Var S:real;
N:integer;
Begin
S:=0;N:=0;
While n<1000 do
Begin
N:=n+1;
S:=s+1/n
End;
Writeln(s);
Readln
End.</span>
737^10-2,16≈4,72797•10^28
