Составить программу в паскале 1)игровой автомат выдает целые числа от 0 до 10 если выпадает 7, то выйгрыш. 2)игровой автомат получает 3 случайных числа от 0 до 10, если числа совпадут, то выйгрыш 3)вывести на экран 10 случайных чисел от 0 до 100, и определить сколько из них чётных надо к завтрашнему дню, заранее .

1) var i: integer; begin randomize; i: =random(11); writeln('vipalo chislo: ',i) ; if (i = 7) then writeln('pobeda! ') else writeln('pobrobyite eshe! '); end.2)vari_1,i_2,i_3: integer; beginrandomize; i_1: =random(11); i_2: =random(11); i_3: =random(11); writeln('vipalo chislа: ',i_1,' ',i_2,' ',i_3); if (i_1 = i_2)and(i_2 = i_3) then writeln('winer! ') else writeln('sorry,try again! ')end.3)  var   i, k, z: integer; begin    randomize;   k : = 0;   for i : = 1 to 10 do      begin      z : = random(101);     write(' ', z);       if odd(z) then k : = k + 1;     end;     writeln;     writeln('kolichestvo chetnysh: ', k);     end. 

1. #include < iostream> using namespace std; int euclid( int a, int b) {       int t;       while (b ! = 0) {           t = b;           b = a%b;           a = t;       }       return a;       while (a ! = b)           if (a > b)               a -= b;           else               b -= a;           if (b = 0)               return a;           else              return euclid(b,a%b); } int main(){         int a, b;       cin > > a > > b;       cout < < euclid(a, b) < < endl;       return 0; } 2.#include< iostream> #include< string> using namespace std; void main(){      const char separator[] = " ";       char s[256];       char *ptr = null;       int i;       cin.getline(s,256);     ptr = strtok(s, separator);       while (ptr) {          for (i = 0; i < strlen(ptr); ++i)              if (isdigit(ptr[i])! =0)                  break;               if (i == strlen(ptr))                  cout < < ptr < < "\n";           ptr = strtok(0, separator);       }}

Кулачко́вый механи́зм   — механизм, образующий высшую  кинематическую пару , имеющий подвижное звено, совершающее вращательное движение,  —  кулак (кулачок) , с поверхностью переменной  кривизны   или имеющей форму  эксцентрика , взаимодействующей с другим подвижным звеном  —  толкателем , если подвижное звено совершает прямолинейное движение, или  коромыслом , если подвижное звено совершает качание. кулак, совершающий прямолинейное движение, называется  копиром . храпово́й механи́зм  (храпови́к)  — зубчатый  механизм  прерывистого движения, предназначенный для преобразовательного возвратно-вращательного движения в прерывистое вращательное движение в одном направлении. проще говоря, храповик позволяет оси вращаться в одном направлении и не позволяет вращаться в другом. храповые механизмы используются достаточно широко  — например, в  турникетах,гаечных ключах, заводных механизмах,  домкратах,  лебёдках, замках  наручников  и  т.  д. храповик обычно имеет форму  зубчатого колеса  с несимметричными зубьями, имеющими упор с одной стороны. движение колеса в обратную сторону ограничивается  собачкой, которая прижимается к колесу пружиной или под собственным весом.