Const n=10;
var a:array[1..n]of integer;
i,k,l,aa: integer;
begin
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if (a[i] mod 11 =0) and (a[i]<1000) and(a[i]>99) then
begin
k:=0;
aa:=a[i];
for i:=1 to 3 do
begin
l:=aa mod 10;
if l=3 then k:=1;
aa:=aa div 10;
end;
if k=1 then writeln(a[i]);
end;
end.
#include <iostream.h>
#include <cstdlib>
int main()
{
int j = 10;
int k = 5;
int A[j][k];
for( int i = 0; i < j; i++ )
for( int z = 0; z < k; z++ )
{
A[i][z] = rand() % 10;
std::cout << A[i][z] << "\t";
}
system("pause");
return 0;
}<span>
</span>
Var
A,i:integer;
N:real;
Begin
WriteLn('Введите число');
ReadLn(N);
For A:= 100 to 999 do
if (A div 100)+((A div 10) mod 10)+(A mod 10)<=N then
Write(A,' ')
End.
Таблица истинности (смотри прикрепленный скрин)
Для двоичных чисел 1+0=1,1+1=10,0+0=0
Под а)110111
б)10100
<span> в)11100</span>