Program gt;
var n,q,a1,a2,a3,a4,a5,a6,a7,a8,a9,a0:integer;
begin
read(n);
a0:=0;a1:=0;
a2:=0;a3:=0;
a4:=0;a5:=0;
a6:=0;a7:=0;
a8:=0;a9:=0;
while n>0 do
begin
q:=n mod 10;
n:=n div 10;
if(q=0)then a0:=a0+1;
if(q=1)then a1:=a1+1;
***********************
***********************
if(q=9)then a9:=a9+1;
end;
if(a0>1)or(a1>1)or....(a9>1)then writeln('yes')else writeln('no');
end.
буз массива как-то так получиться
11010011200)
Наверное так)
Устройство: 1 Клавиатура. 2 процессор. 3 Память. 4 монитор. 5 мышь.
Функция: 1 ввод информации. 2 обработка данных. 3 хранение информации. 4 отображение данных. 5 устройство ввода информации.
1) var k:integer; begin for k:=1 to 5 do write(i*2:4); readln end.
2) begin writeln((10+15)*(15-10+1)/2); readln end. или begin writeln(75); readln end.
3) var a,n:integer; begin readln(n,a); if n mod a = 0 then writeln('делится нацело') else writeln('не делится нацело'); readln end.
4) var n:integer; begin readln(n); writeln(trunc((sqrt(4*(n+1)+1)-1)/2+0.9999)); readln end;
#include <iostream>
#include <cmath>
using namespace std;
int func(int *mas, int m)
{
int res=1;
for(int j=0; j<m; j++) res *= (abs(mas[j])<=10);
return not res;
}
int main()
{
const int n=6,m=4;
int a[n][m];
srand(time(NULL));
cout << "Случайная матрица порядка "<< n << "x" << m << ":\n";
for(int i = 0; i < n; i++){
for(int j = 0; j < m; j++){
a[i][j]=rand() % 30-15;
cout << a[i][j] << " ";
}
cout << "\n";
}
for(int i=0; i<n; i++)
cout << i << ": " << func(a[i],m) << endl;
return 0;
}
Пример:
Случайная матрица порядка 6x4:
11 -11 9 8
-5 -11 -12 14
4 -6 -1 7
-2 3 -1 13
-1 4 -15 3
4 -7 -3 -1
0: 1
1: 1
2: 0
3: 1
4: 1
5: 0
