Вопрос по информатике:
Ребят, срочно нужна помощь. Нужно написать программы на языке паскаль
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
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 06.09.2016 16:27
- Информатика
- remove_red_eye 9967
- thumb_up 50
Ответы и объяснения 1
begin
cout:=1;
N1:=0;
var N:=readinteger('Введите число N:');
var A:=readinteger('Введите число A:');
while N0 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 N0 do
begin
cout*=10;
N:=N div 10;
end;
N:=N1*cout+N1;
write(N);
end.
- 07.09.2016 01:13
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.