«Девятый вал» - настоящий шедевр русской живописи и пожалуй, самая
известная картина великого художника-мариниста И. К. Айвазовского.
В
этой картине, как ни в какой другой, художник следует принципам
романтического искусства - он описывает среди разнообразия жизненных
явлений не типическое, а то, что выходит за пределы обыкновенного,
исключительное.
Полотно, написанное в 1850 году, завершает ранний период творчества живописца.
Айвазовский
показывает море, которое еще не успело успокоиться после неистового
ночного шторма, и людей, потерпевших крушение в океане. Золотые лучи
восходящего солнца освещают катящиеся волны. Самая большая из них –
девятый вал – снова готова обрушиться на людей.
Измученные
неравной борьбой со стихией, они пытаются спастись на деревянных
обломках мачты своего корабля. Всеми изобразительными средствами
Айвазовский подчеркивает величие моря и упорство людей. Но мы не видим
на картине ужаса катастрофы. Пусть неистовствует стихия и катятся
гигантские волны. Вера и мужество людей помогут им справиться с бедой.
С
замечательным мастерством и силой передано Айвазовским великолепие
волнующегося моря. На полотне все находится в движении, и море вместе с
вздымающимися и тяжело обваливающимися волнами кажется по-настоящему
«живым».
Художник использует самые яркие краски палитры. Верхняя
часть полотна написана в розовато-фиолетовых тонах – так окрашивают
небо, проходя через клубящиеся, похожие на туман, облака, первые лучи
солнца. Внизу – тревожное сине-зеленое море, гребни волн которого
переливаются всеми цветами радуги.
<span>Картина Айвазовского
«Девятый вал» – гимн мужеству человека, берущего верх над силами стихии,
сколь страшной, столь и великолепной в своем грозном величии.
</span>
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var n := Abs(ReadInteger('Введите целое число:'));
var yes := False;
var n1 := n mod 10;
n := n div 10;
while n > 0 do
begin
var n2 := n mod 10;
if n1 = n2 then
begin
yes := True;
break
end;
n := n div 10;
n1 := n2
end;
if yes then Print('Верно')
else Print('Неверно')
end.
<h3>А еще это можно решить, к примеру, так:</h3>
begin
var s := Abs(ReadInteger('Введите целое число:')).ToString;
if s.Pairwise.Any(t->t[0]=t[1]) then Print('Верно')
else Print('Неверно')
end.
В ячейках А1; D1 поставь значения
7, 12, 148, 235
в любой сумирующей ячейки напиши функцию
=ROUND(AVERAGE(A1:D1),2)
где round - округление в скобках
(выражение для округления, число знаков округления)
вместо выражения подставляем
Average - эта функция находит среднее значение диапазона ячеек a1:D1
ответ 100,5
3, т.к. разница между 1 и 2 - 6, между 2 и 3 - 4, между 3 и 4 - 2.
3-0=3