Стив Джобс.
Стивен Джобс - основатель компании apple
Если n - натуральное число, то
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
1.Step.Select(n->2*n+3).TakeWhile(a->a<100).Println
end.
<u><em>Результат:</em></u>
5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99
<span>допустим первые три массива:
int a[10], b[10], c[10];
</span> int d[10] //четвертый массив
for (int i = 0; i < 0; ++i)
{
d[i] = a[i];
if(b[i]>d[i])
{
d[i] = b[i];
}
if ( c[i] > d[i])
{
d[i] = c[i];
}
<span>}</span>
var x,a,b,sum:integer;
begin
writeln ('Введите стоимость перчатки');
readln (x);
writeln ('Введите стоимость сумки');
readln (a);
writeln ('Введите стоимость ремня');
readln (b);
sum:=a+b+x;
if (sum>800) then writeln (sum-(sum/100*10));
if (sum<800) then writeln (sum);
end.
1) "мир" становится в расширение
2) "Енисей" сдает назад
3) "Обь" и "Восток" проходят дальше прохода навстречу "Енисею"
4) "Мир" выходит из расширения
5) "Обь" и и " Восток" сдают назад к прооду
6) "Енисей" становится в проход
7) "Обь" и "Восток" проплывают проход
8) "Енисей" выходи из прохода