Free Pascal , проверьте пожалуйста)
Я написал несколько программ , но не могу их проверить , так как паскаль вылетает . Проверьте пожалуйста , кому не трудно .
1) Среди 4х-значных чисел выбрать те , у которых все цифры разные .
program1;
uses crt;
var
i, n, m: integer;
a,b,c,d: integer;
begin
clrscr;
readln(n);
for i := 1 to n do
begin
readln(a);
a:= m div 1000;
b:= (m div 100) mod 10;
c:= (m div 10) mod 10;
d:= m mod 10;
if (a b) and (a c) and (a d) and (b c) and (b d) and (c d)
then
writeln('cifri razniy ')
else
writeln('cifri ne raznie');
end;
end.
2)Дано натурально n , уберите из числа цифры 0 и 5 , не изменяя остальные .
program2;
uses crt;
Var i,n,k,S:integer;
Begin
clrscr;
writeln('Vvedite (n)');
readln(n);
i:=1;
S:=0;
While n0 do
Begin
k:=n mod 10;
if (k0) and (k5) then
Begin
S:=S+k*i;
i:=i*10;
end;
n:=n div 10;
end;
Writeln(S);
end.
3) Добавить 1 в конце и начала числа .
program4;
uses crt;
var
a:string;
i:integer;
begin
clrscr;
writeln('Vvedite chislo');
readln(a);
i:=length(a);
insert('1',a,1);
insert('1',a,length(a));
writeln(a);
readkey;
end.
4)Поменять местами первую и последнюю цифру числа
program4;
uses crt;
var
a:string;
i:integer;
begin
clrscr;
writeln('Vvedite chislo');
readln(a);
i:=length(a);
K:=copy(a,1,1);123
insert(k,a,i);1231
delete(a,1,1);231
m:=copy(a,i-1,1);231
insert(m,a,1);3231
delete(a,i-1,1)
writeln(a);
readkey;
end.
1) Среди 4х-значных чисел выбрать те , у которых все цифры разные .
program1;
uses crt;
var
i, n, m: integer;
a,b,c,d: integer;
begin
clrscr;
readln(n);
for i := 1 to n do
begin
readln(a);
a:= m div 1000;
b:= (m div 100) mod 10;
c:= (m div 10) mod 10;
d:= m mod 10;
if (a b) and (a c) and (a d) and (b c) and (b d) and (c d)
then
writeln('cifri razniy ')
else
writeln('cifri ne raznie');
end;
end.
2)Дано натурально n , уберите из числа цифры 0 и 5 , не изменяя остальные .
program2;
uses crt;
Var i,n,k,S:integer;
Begin
clrscr;
writeln('Vvedite (n)');
readln(n);
i:=1;
S:=0;
While n0 do
Begin
k:=n mod 10;
if (k0) and (k5) then
Begin
S:=S+k*i;
i:=i*10;
end;
n:=n div 10;
end;
Writeln(S);
end.
3) Добавить 1 в конце и начала числа .
program4;
uses crt;
var
a:string;
i:integer;
begin
clrscr;
writeln('Vvedite chislo');
readln(a);
i:=length(a);
insert('1',a,1);
insert('1',a,length(a));
writeln(a);
readkey;
end.
4)Поменять местами первую и последнюю цифру числа
program4;
uses crt;
var
a:string;
i:integer;
begin
clrscr;
writeln('Vvedite chislo');
readln(a);
i:=length(a);
K:=copy(a,1,1);123
insert(k,a,i);1231
delete(a,1,1);231
m:=copy(a,i-1,1);231
insert(m,a,1);3231
delete(a,i-1,1)
writeln(a);
readkey;
end.