Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 09.12.2013
Сообщений: 18
1

Какую блок схему нужно нарисовать к этой программе?

04.05.2014, 18:25. Показов 460. Ответов 1
Метки нет (Все метки)

//Ребус
C
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#include<conio.h>
#include<iostream.h>
void main()
{  int i,j,r;
   long int buk,slo,a[8];
   clrscr();
   for(a[0]=1; a[0]<=3; a[0]++)
    for(a[1]=0; a[1]<=9; a[1]++)
     for(a[2]=0; a[2]<=9; a[2]++)
      for(a[3]=0; a[3]<=9; a[3]++)
       for(a[4]=0; a[4]<=9; a[4]++)
    for(a[5]=1; a[5]<=9; a[5]++)
     for(a[6]=0; a[6]<=9; a[6]++)
      for(a[7]=0; a[7]<=9; a[7]++)
 
         {  buk=a[0]*10000+a[1]*1000+a[2]*100+a[3]*10+a[4];
        slo=a[5]*10000+a[6]*1000+a[7]*100+a[3]*10+a[7];
 
            if(buk*3==slo)
            { r=0;                   
              for(i=0; i<8; i++)     
            for(j=i+1; j<8; j++)  
              if(a[i]==a[j]) r++;
              if(r==0)  cout<<buk<<" + "
                         <<buk<<" + "
                         <<buk<<" = "
                         <<slo<<endl;
            }
          }
getch();
}
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.05.2014, 18:25
Ответы с готовыми решениями:

Нужно нарисовать блок-схему !!
1.Опредилить сколько положительных,отрицательных и нулей, среди двох чисел, которые произвольно...

Как перенести блок схему, что нужно писать в этой фигуре
Что здесь нужно написать ?

Мне нужно составить блок-схему к программе.
Program PPN1_3; uses crt; const d=2; ES=-0.006; EI=-0.016; esmin=0;...

нарисовать блок схему
нарисовать... блок схему!!!! const WG=100; type tmasi=array of integer; var n,i,j:byte;...

__________________
1
Cyborg Drone
04.05.2014, 18:32     Какую блок схему нужно нарисовать к этой программе?
  #2
 Комментарий модератора 
julia23_97, веткой форума ошиблись. В какую из веток Си перенести Ваш вопрос? В случае отсутствия реакции с Вашей стороны, эта тема будет удалена через двое суток.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.05.2014, 18:32
Привет! Вот еще темы с ответами:

Нарисовать блок-схему
Найти среднее арифм. наименьших по абсолютной величине элементов каждой строки матрицы FM(m,m),...

Нарисовать блок-схему
Написать функцию, которая создает список L2, являющийся копией списка L1, начинающегося с данного...

Нарисовать блок-схему
Помогите нарисовать блок-схему к прогам: 1.Умножить матрицу А с розмерностью mxn на матрицу В с...

Нарисовать блок-схему
uses crt; const n=8; var a,b:array of integer; i,sum,k:integer; sr:real; begin ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.