Напишите на языках pascal и c++ программу, которая генерирует 2 случайных вещественных числа и вычисляет их сумму, разность, произведение и частное. напишите на языках pascal и c++ программу, моделирующую выбор одной из костей домино ( в наборе 28 костей домино, каждая состоит из двух половин, на каждой половине – от 0 до 6 очков с этой программы ответьте на вопрос: какова вероятность того, что выпадет кость с числом очков, кратным 3

Вот программа на c++, только возможности её скомпилировать не было: ( #include < iostream> #include < conio.h> #include < stdio.h> using namespace std; main() {    setlocale(0, "");     double m;     double k;     srand(time(null));             printf("первое случайное число\n");       m = rand() % 1000;       cout < < m < < endl;       getch();       printf("второе случайное число\n");         k = rand() % 1000;       cout < < k < < endl;       getch(); printf("сумма: %d",m+k); printf("\nразность: %d",m-k); printf("\nпроизведение: %d",m*k); printf("\nчастное: %d",m/k); getch();   } а это та же, только на паскале: program fofgogjoj; var a,b: real; begin a: =random(1000); b: =random(1000); writeln('первое случайное число равно: ',a); writeln('второе случайное число равно: ',b); writeln; writeln('сумма: ',a+b); writeln('разность: ',a-b); writeln('произведение: ',a*b); writeln('частное: ', a/b: 0: 2); end.

Вот пример вычисления факториала числа 200 const   n=1000; {максимальное количество цифр в числе} type   big=record       v: array[1..n] of byte; {массив с цифрами числа}       m: integer {количество цифр в числе}   end; function str2big(s: string): big; {переводит строковое представление в big} var   i,n,k,err: integer;   r: big; begin   n: =length(s);   r.m: =n;   for i: =1 to n do   begin       val(s[i],k,err);       r.v[i]: =k   end;   str2big: =r end; function big2str(p: big): string; {переводит представление big в строковое} var   i,n: integer;   c,s: string; begin   s: ='';   n: =p.m;   for i: =1 to n do   begin       str(p.v[i],c);       s: =s+c   end;   big2str: =s end; function truncbig(a: big): big; {усекает незначащие нули} var   i,p,n: integer;   r: big; begin   n: =a.m;   p: =0;   while (p< n) and (a.v[p+1]=0) do p: =p+1;   for i: =1 to n-p do r.v[i]: =a.v[i+p];   r.m: =n-p;   truncbig: =r end; function multbig(a,b: big): big; {возвращает произведение чисел типа big} var   i,j,k,m,n,s: integer;   r: big; begin   m: =a.m; n: =b.m;   for i: =m to m+n do r.v[i]: =0;   r.m: =m+n;   for j: =n downto 1 do   begin       if b.v[j]=0 then r.v[j+m+n-1]: =0       else begin           k: =0;           for i: =m downto 1 do           begin               s : =a.v[i]*b.v[j]+r.v[i + j]+k;               r.v[i+j]: =s mod 10;               k: =s div 10           end;                 r.v[j] : = k       end   end;   multbig: =truncbig(r); end; var   i: integer;   s: string;   bi,bs: big; begin   bs: =str2big('1');   for i: =1 to 200 do begin       str(i,s);       bi: =str2big(s);       bs: =multbig(bs,bi);       end;   s: =big2str(bs);   writeln(s) end. результат 788657867364790503552363213932185062295135977687173263294742533244359449963403342920304284011984623904177212138919638830257642790242637105061926624952829931113462857270763317237396988943922445621451664240254033291864131227428294853277524242407573903240321257405579568660226031904170324062351700858796178922222789623703897374720000000000000000000000000000000000000000000000000

//dev-c++ 5.11 (c) #include < stdio.h> #include < stdlib.h> #include < malloc.h> int main(void)   {int n,mark,count2=0,count5=0,res;   printf("enter number of classes: ");   scanf("%d",& n);   printf("enter marks: \n");   for(int i=0; i< n; i++)   {scanf("%d",& mark);   if(mark==5) count5++;     if(mark==2)       count2++; }     res=count2-count5;     if (res< 0)   res=0;     if (count5==0)   printf("impossible");   else   printf("%d",res);   return 0; } пример ввода: 3 5 2 2 пример вывода: 1