//PascalABC.Net 3.0, сборка 1064 var n:integer; i,d:byte; b:array[0..9] of boolean; fail:boolean; begin Write('Введите четырехзначное натуральное число: '); Read(n); for i:=0 to 9 do b[i]:=False; while (n>0) and (not fail) do begin d:=n mod 10; if b[d] then fail:=True else b[d]:=True; n:=n div 10 end; if fail then Writeln('В числе есть одинаковые цифры') else Writeln('В числе нет одинаковых цифр') end.
Тестовое решение: Введите четырехзначное натуральное число: 1263 В числе нет одинаковых цифр
Введите четырехзначное натуральное число: 1315 В числе есть одинаковые цифры
//Поэтому интерпретировал как "любые 10 дней"
#include <iostream>
#include <stdlib.h>
#include <ctime>
using namespace std;
int main() {
srand(time(0));
int ar[30];
int max=0;
int ar2[21];
int is,iv;
cout<<"Mounth \n";
for(int i=0;i<30;i++){
ar[i]=rand()%100+1;
cout<<ar[i]<<" ";
}
for(int i=0;i<21;i++){ ar2[i]=ar[i]+ar[i+1]+ar[i+2]+ar[i+3]+ar[i+4]+ar[i+5]+ar[i+6]+ar[i+7]+ar[i+8]+ar[i+9]; //не влезло
if(max<ar2[i]){
max=ar2[i];
is=i+1;
iv=i+10;
}
}
cout<<"\n"<<is<<"-"<<iv;
cin.get();
cin.get();
return 0;
}