Программа на Pascal. Выдаёт ошибку в стоке исправить vara, b, c, s, e:integer;d:real;beginreadln:(a, b, c);s:=a+b+c;d:=(a+b+c)/3;e:=a*b*c;writeln ('Сумма чисел равна ', s);writeln ('Произведение рано ', e);writeln ('Среднее арифметическое равно ', d);end.

#include <stdio.h>

#include <iostream>

#include <stdlib.h>

using namespace std;

 

 

#define kolichestvo 4

 

 

 

int main()

{

 int chislo, i, j;  

 char str [5];

 bool flag= false;

 

 cin>>chislo;

 itoa (chislo, str, 10);

 

 

 for (i= 0; i< kolichestvo- 1; i++)  

      for (j= i+ 1; j< kolichestvo; j++)  

           if (str[i]== str[j]) {  

            j= kolichestvo;

            i= kolichestvo- 1;

            flag = true;

           }

 

 printf ("%x\n", flag);

 getchar ();

 getchar ();

 return 0;

}

Объяснение: