Задание: дано натуральное число N. Из записи числа удалить все единицы и нули. Порядок следования остальных цифр оставить без изменения.
Исходный код программы для Delphi 7:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;
var n,i:integer;
s,s2:string;
begin
{ TODO -oUser -cConsole Main : Insert code here }
writeln('Vvedite n');
Readln(n);
s:=inttostr(n);
for i:=1 to length(s) do
begin
if (s[i]<>'0') and (s[i]<>'1') then
begin
s2:=s2+s[i];
end;
end;
writeln(s2);
Readln;
end.
Блок схема:
|