N=1280*960=1228800;
i=24 бита ;
V=n*i=1228800*24=29491200 бит=3686400 байт=3600 Кбайт
Var
C:array[0..9] of byte;
A:longint;
i:byte;
Begin
For i:= 0 to 9 do
C[i]:=0;
Repeat
Write('Введите натуральное число: ');ReadLn(A);
Until A>0;
i:=Trunc(Ln(A)/Ln(10));
if frac(Ln(A)/Ln(10)) > 0 then i:=i+1;
For i:= 1 to i do
Begin
C[A mod 10]:=C[A mod 10] +1;
A:=A div 10
End;
For i:= 0 to 9 do
if C[i]>1 then A:=1;
if A = 1 then
Begin
Write('Повторяются: ');
For i:= 0 to 9 do
if C[i] > 1 then
Write(i,' ')
End
End.
Пример работы программы:
Введите натуральное число: 131350788
Повторяются: 1 3 8
#include <iostream>
void print (int *a,int size)
{
for (int i=0; i<size; i++)
std::cout <<a[i] <<' ';
std::cout <<std::endl;
}
int main()
{
int C[10]={1,2,3,4,5,6,7,8,9,10};
int B[10];
for (int i=0; i<10; i++)
B[i]=C[9-i];
print (B,10);
return 0;
}
1. var s, i: integer;
begin
for i := 1 to 100 do
s := s + i;
writeln('s=', s);
end.
2. var i, r: integer;
begin
writeln('Таблица умножения на 3');
for i := 1 to 10 do
begin
r := i * 3;
writeln(i, ' * 3 = ', r);
end;
readln;
end.