<span>Послідовні цикли – це алгоритми, у яких циклічні структури слідують одна за одною, тобто лінійно. Вкладений цикл – це цикл, який використовується як команда в тілі іншого циклу.
</span>Допоміжний<span> (підлеглий) алгоритм (процедура) - алгоритм, розроблений раніше і цілком використовуваний при алгоритмізації конкретної задачі. В деяких випадках при наявності однакових послідовностей вказівок (команд) для різних даних з метою скорочення запису також виділяють допоміжний алгоритм.
</span>
1) Камнеев перевозит свое шмотье на другой берег и бросает его туда, возвращается
2) Берет шмотье Бумагина (Законно) и делает то же самое.
3) Перевозит Бумагина
4) Забирает свое шмотье с того берега, кидает на первом
5) Перевозит Ножницына с баулом, выкидывает только баул
6) Повторяет 5,но выбрасывает и Ножницына
7) Забирает свои баулы и переправляется на другой берег
1)джойстик
2)?
3)процессор
4)принтер
5)системный блок
6)системный блок
7)видеокарта
8)enter
9)цветной принтер
Const
n = 2016;
var
a: array[1..n] of integer;
i, m, k: integer;
begin
randomize;
m := 1;
for i := 1 to n do
begin
a[i] := random(1000);
m := m * a[i] mod 2;
// write(a[i], ' ');
end;
k := -1;
for i := 1 to n do
if (a[i] mod 2 = m) and (a[i] > k) then
k := a[i];
writeln(k);
end.
ответ примерно будет одинаковым, так как очень много цифр в массиве
// PascalABC.Net 3.0, сборка 1052
var
s1, s2: string;
a, b: real;
err: integer;
begin
Writeln('Введи первый катет: ');Readln(s1);
Val(s1, a, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Введи второй катет: ');Readln(s2);
Val(s2, b, err);
if err <> 0 then Writeln('Ошибка при попытке получить числовое значение')
else begin
Writeln('Гипотенуза равна ', sqrt(a * a + b * b));
Writeln('Площадь равна ', 0.5 * a * b)
end
end
end.
