Pascal, цикл While или Repeat Ввести число. Получить другое число, путем удаления единиц, сохранив порядок следования оставшихся цифр.
7
ОТВЕТЫ
//fromStudent
//без строк
var
n, nn: longint;
i : byte;
function pow (p: longint; k: byte):longint;
var j : byte;
sum : longint;
begin
sum:=1;
if kgt;0 then for j:=1 to k do sum:=sum*p;
pow:=sum;
end;
begin
write (Введите число: );
readln (n);
while ngt;0 do
begin
if (n mod 10)lt;gt;1 then
begin
inc (nn, pow (10, i)*(n mod 10));
inc (i);
end;
n:=n div 10;
end;
write (Полученное число: , nn);
end.
//без строк
var
n, nn: longint;
i : byte;
function pow (p: longint; k: byte):longint;
var j : byte;
sum : longint;
begin
sum:=1;
if kgt;0 then for j:=1 to k do sum:=sum*p;
pow:=sum;
end;
begin
write (Введите число: );
readln (n);
while ngt;0 do
begin
if (n mod 10)lt;gt;1 then
begin
inc (nn, pow (10, i)*(n mod 10));
inc (i);
end;
n:=n div 10;
end;
write (Полученное число: , nn);
end.
78
Отв. дан
Celas
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Руфин
В MS Word набери слово жёсткий диск и сохрани ...
2019-05-23 08:33:55
Anasius
Вывести на экран все числа от 10 до 2030 ...
2019-05-23 08:30:49
Диодор
Записать таблицу в режиме отображения значений. ...
2019-05-23 08:27:59
Тимофей
Составить алгоритм для вычисления суммы чисел от 1 до ...
2019-05-23 08:21:35