Program task;{19021147 -> 90247}
var a,s,ost,t:integer;
begin
s:=0;t:=1;
write('Введи число ');read(a);
while a<>0 do begin
ost:=a mod 10;
s:=s+ost*t;
t:=t*10;
a:=a div 10;
end;
write(s);
end.
дз. дано число. удалить из него все единицы.
Ответа на этот вопрос пока нет. Попробуйте найти его через форму поиска.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад