Найти произведение четных чисел от 1 до 15

Можно так: var i,p: integer; begin p: =1; for i: =2 to 15 do     if i mod 2=0 then p: =p*i; writeln('произведение четных чисел: ',p) end.или так: var i,p: integer; begini: =2; p: =1; while i< 15 do  begin  p: =p*i;   i: =i+2  end; writeln('произведение четных чисел: ',p)end.

Зрение; с глаз люди различают цвета, воспринимают зрительную информацию, к которой относятся и текстовая, и числовая, и графическая; слух; уши воспринимать звуковую информацию – речь, музыку, звуковые сигналы, шум; обоняние; с носа люди получают информацию о запахах окружающего мира; вкус; вкусовые рецепторы языка возможность получить информацию о том, каков предмет на вкус – горький, кислый, сладкий, соленый; осязание; кончиками пальцев (или просто кожей), наощупь можно получить информацию о температуре предмета – горячий он или холодный, о качестве его поверхности – гладкий или шершавый.

 

c++:

#include

#include

using std: : cin,std: : cout,std: : string;

int main(){

        string st;

        cin > > st;

        for (auto i: st ){

                if (i == '4'){

                        cout < < "yes";

                        return 0;

                }

        }

        cout < < "no";

        return 0;

}