9966 написать на экране 0
ришить без массивов
мне помогите и объясните но решение недовать пака я не придумают или срок некончится в воскрисение паследний день мне надо будет здовать
вот что я зделал
- Код: Выделить всё
program m;
var a:longint;
function cislo(n:longint):longint;
begin
while n>0 do
begin
cislo:= n mod 10;{число разделяю на цифры}
n:=n div 10;
writeln(cislo);
end;
end;
begin
writeln('vvedite');
readln(a);
cislo(a);
readln;
end.
асталась мне эти цифры сравнить все со веми и записат ниповторяющийся цифры что подскажете
Модератор: следующие посты без форматирования буду удалять !
