Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>
Пронумеруем исходные утверждения.
1) круг не белый и не зеленый.
2) синяя фигура лежит между ромбом и красной фигурой.
3) треугольник не синий и не зеленый.
4) квадрат лежит между треугольником и белой фигурой.
Теперь рассмотрим каждое из них.
Из (1) круг не белый, а из (4) не белые также квадрат и треугольник. Следовательно, <em>белым может быть только ромб</em>.
5) Если ромб белый, то он не зеленый. Не зеленые также круг (1) и треугольник (3). Тогда <em>зеленый квадрат</em>.
6) Если квадрат зеленый (5), то он не синий и не красный. Не синие также ромб (2) и треугольник (3). Следовательно, <em>синий круг</em>.
7) <em>Треугольник красный</em>, поскольку остальные цвета уже распределены.
<u><em>Ответ:</em></u> Квадрат зеленый, круг синий, ромб белый, треугольник красный.
Код:
for i:=2 to n-1 do if (a[i-1]<a[i]) and (a[i]>a[i+1]) then writeln(i,<span>' element');
(Источник:</span><span>http://www.programmersforum.ru)
</span>
1) Берет билет
Проверяет билет
Сообщает информацию пассажиру (в зависимости от ситуации, например, если билет фальшивый)
Отдает билет
2) Написание сообщения
Отправка сообщения
Дальнейшая передача сообщение по сети
Прием сообщения
3) Написать телеграмму
Отправить телеграмму
Получить телеграмму
Прочитать телеграмму
Вроде так)
13,31,15,51,57,75,53,35,71,17,73,37.