Home
О нас
Products
Services
Регистрация
Войти
Поиск
20SASHULYA08
@20SASHULYA08
September 2021
1
23
Report
Напишите программу для паскаля! Дано натуральное число. Найти число, получаемое удалением удалением из исходного всех цифр а.
Please enter comments
Please enter your name.
Please enter the correct email address.
Agree to
terms of service
You must agree before submitting.
Send
Answers & Comments
petyaGavrikov
Verified answer
Var n,m,k,p,a:integer;
begin
write('n='); readln(n);
write('a='); readln(a);
m:=0;p:=1;
while n<>0 do
begin
k:=n mod 10;
if k<>a then begin m:=k*p+m; p:=p*10; end;
n:=n div 10;
end;
writeln('m=',m);
end.
1 votes
Thanks 1
More Questions From This User
See All
20SASHULYA08
August 2022 | 0 Ответы
Помогите пожалуйста sinx-cosx=-1...
Answer
20SASHULYA08
August 2022 | 0 Ответы
Паскаль! Помогите пожалуйста! Дан целочисленный массив из 40 элементов. Элементы...
Answer
20SASHULYA08
August 2022 | 0 Ответы
Помогите пожалуйста! На вход программы поступает натуральное число, не превышающ...
Answer
20SASHULYA08
August 2022 | 0 Ответы
Помогите пожалуйста! Как посчитать в массиве количество подряд идущих элементов ...
Answer
20SASHULYA08
August 2022 | 0 Ответы
Помогите пожалуйста упростить выражение, что то никак не получается...
Answer
20SASHULYA08
August 2022 | 0 Ответы
Паскаль! Помогите пожалуйста! Удалить первую из строк матрицы в которой сумма эл...
Answer
20SASHULYA08
August 2022 | 0 Ответы
Помогите пожалуйста решить задачу в паскале! В файле marks.csv записаны сведения...
Answer
20SASHULYA08
August 2022 | 0 Ответы
Докажите неравенство (a+b)(ab+9) >=12ab (a>0, b>0)...
Answer
20SASHULYA08
August 2022 | 0 Ответы
+1...
Answer
20SASHULYA08
August 2022 | 0 Ответы
На рисунке представлен график зависимости температуры эфира от времени при его н...
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
о чем должны позаботиться в первую очередь взрослые при организационном вывозе н...
danilarsentev
August 2022 | 0 Ответы
Есть два станка на которых выпускают одинаковые запчасти один производит a запча...
myachina8
August 2022 | 0 Ответы
Найти по графику отношение V3:V1. В ответах написано 9, но нужно решение...
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
Определите Как создавалась и кто создавал арабское государство в крации...
MrZooM222
August 2022 | 0 Ответы
Ч. Айтманов в рассказе "Красное яблоко" использует метод рассказ в рассказе. Опи...
timobila47
August 2022 | 0 Ответы
каково было назначение каждой из частей византийского храма? помогите пожалуйста...
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
Участник Знаний
August 2022 | 0 Ответы
Пожалуйста!!!!!!!!!!!!...
sarvinozwakirjanova
August 2022 | 0 Ответы
помогите пожалусто пж...
×
Report "Напишите программу для паскаля! Дано натуральное число. Найти число, получаемое ..."
Your name
Email
Reason
-Select Reason-
Pornographic
Defamatory
Illegal/Unlawful
Spam
Other Terms Of Service Violation
File a copyright complaint
Description
Helpful Links
О нас
Политика конфиденциальности
Правила и условия
Copyright
Контакты
Helpful Social
Get monthly updates
Submit
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Var n,m,k,p,a:integer;begin
write('n='); readln(n);
write('a='); readln(a);
m:=0;p:=1;
while n<>0 do
begin
k:=n mod 10;
if k<>a then begin m:=k*p+m; p:=p*10; end;
n:=n div 10;
end;
writeln('m=',m);
end.