Правила форума :: Скачать Pascal :: FAQ // Ада–2020 :: Скачать GNAT :: OEM–2015 :: Ada -> C/C++
ПомощьРегистрацияПоиск
1. Пользуйтесь тегами кода. - [code] ... [/code] 2. Точно указывайте язык, название и версию компилятора (интерпретатора). 3. Название темы должно быть информативным. В описании темы указываем язык!!! Наладить общение поможет, если вы подпишитесь по почте на новые темы в этом форуме.
#include <conio.h>#include <iostream.h>const n = 10;int k, m, kmax, kindex;void main(){int mas[n]={9,25,25,10,10, 10, 10, 5, 5, 5};clrscr();k=0;m=mas[0];kmax = 0;kindex = 0;for (int i=0; i<n; i++){ if (mas[i]==m) { k++; } else { if (k > kmax) { kmax = k; kindex = i-kmax; } k = 0; m = mas[i]; i--; }}cout<<"\n posledovatelnost odinakovix chisel "<<kmax<<"\n\n";for (i = kindex; i < kindex+kmax; i++) cout << mas[i]<<" "; getch();}
#include <iostream>#include <math.h>int main() { const int n = 10; int mas[n] = { 9, 25, 25, 10, 16, 16, 9, 25, 25, 5 }; int Len = 0, i = 0, start; while(i < n) { int count = 0, delta = 1; while(((int)sqrt(mas[i]) * (int)sqrt(mas[i])) == mas[i]) { count += 1; i += 1; delta = 0; } if(Len < count) { start = i - count; Len = count; } i += delta; } cout << "start = " << start << " len = " << Len << endl; return 0;}
#include <conio.h>#include <iostream.h>#include <math.h>const n = 10;int k, m, kmax, kindex;float z;int kvadrat(int c) {z=sqrt©;if ((int(z) != 0) && (z/int(z)==1)) return 1;elsereturn 0;}void main(){int mas[n]={9,25,25,10,10, 10, 10, 5, 5, 5};clrscr();k=0;m=mas[0];kmax = 0;kindex = 0;for (int i=0; i<n; i++){ if (kvadrat(mas[i]) ) { k++; } else { if (k > kmax) { kmax = k; kindex = i-kmax; } k = 0; }}cout<<"\n posledovatelnost chisel polnih kvadratov "<<kmax<<"\n\n";for (i = kindex; i < kindex+kmax; i++) cout << mas[i]<<" "; getch();}