Ребят, срочно нужна помощь. Нужно написать программы ** языке паскаль 1. Вводится...

Question

Ребят, срочно нужна помощь. Нужно написать программы на языке паскаль
1. Вводится натуральное число N и цифра A..Требуется получить новое число N1, вычеркивая из числа N цифру A. Например: 1) N=1215, A=1 - N1=25 ; 2) N=125, A=9 - N1=125.
2.Вводится натуральное число N. Получить новое число N1, приписав к числу N само себя.Например: N=12 - N1=1212

Answer 1

Var cout,N1: integer;
begin
cout:=1;
N1:=0;
var N:=readinteger('Введите число N:');
var A:=readinteger('Введите число A:');
while N<>0 do
begin
if (N mod 10 <> A) then
begin
N1:=N1 + N mod 10 * cout;
cout*=10;
end;
N:=N div 10;
end;
write(N1);
end.

var N1,cout:integer;
begin
cout:=1;
var N:=readinteger('Введите число N:');
N1:=N;
while N<>0 do
begin
cout*=10;
N:=N div 10;
end;
N:=N1*cout+N1;
write(N);
end.