Home
О нас
Products
Services
Регистрация
Войти
Поиск
20SASHULYA08
@20SASHULYA08
September 2021
1
17
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 Ответы
pomogite pozhalujsta sinx cosx 1f3ed975539a63ade1f669ff531b399f9 80317
Answer
20SASHULYA08
August 2022 | 0 Ответы
paskal pomogite pozhalujsta dan celochislennyj massiv iz 40 elementov elementyc0d7f335aa0c06076c21bdcca5544f9a 31673
Answer
20SASHULYA08
August 2022 | 0 Ответы
pomogite pozhalujsta na vhod programmy postupaet naturalnoe chislo ne prevyshayush784ef4672c921553268bdf4eaceb53e4 3684
Answer
20SASHULYA08
August 2022 | 0 Ответы
pomogite pozhalujsta kak poschitat v massive kolichestvo podryad idushih elementov
Answer
20SASHULYA08
August 2022 | 0 Ответы
pomogite pozhalujsta uprostit vyrazhenie chto to nikak ne poluchaetsya
Answer
20SASHULYA08
August 2022 | 0 Ответы
paskal pomogite pozhalujsta udalit pervuyu iz strok matricy v kotoroj summa el
Answer
20SASHULYA08
August 2022 | 0 Ответы
pomogite pozhalujsta reshit zadachu v paskale v fajle markscsv zapisany svedeniya124c6e145c702d65e91aa9f5d83352cf 86650
Answer
20SASHULYA08
August 2022 | 0 Ответы
dokazhite neravenstvo abab9 gt12ab agt0 bgt0
Answer
20SASHULYA08
August 2022 | 0 Ответы
+1...
Answer
20SASHULYA08
August 2022 | 0 Ответы
na risunke predstavlen grafik zavisimosti temperatury efira ot vremeni pri ego n
Answer
рекомендуемые вопросы
rarrrrrrrr
August 2022 | 0 Ответы
o chem dolzhny pozabotitsya v pervuyu ochered vzroslye pri organizacionnom vyvoze n
danilarsentev
August 2022 | 0 Ответы
est dva stanka na kotoryh vypuskayut odinakovye zapchasti odin proizvodit a zapcha
myachina8
August 2022 | 0 Ответы
najti po grafiku otnoshenie v3v1 v otvetah napisano 9 no nuzhno reshenie
ydpmn7cn6w
August 2022 | 0 Ответы
Choose the correct preposition: 1.I am fond (out,of,from) literature. 2.where ar...
millermilena658
August 2022 | 0 Ответы
opredelite kak sozdavalas i kto sozdaval arabskoe gosudarstvo v kracii
MrZooM222
August 2022 | 0 Ответы
ch ajtmanov v rasskaze krasnoe yabloko ispolzuet metod rasskaz v rasskaze opi
timobila47
August 2022 | 0 Ответы
kakovo bylo naznachenie kazhdoj iz chastej vizantijskogo hrama pomogite pozhalujsta
ivanyyaremkiv
August 2022 | 0 Ответы
moment. 6....
pozhalujsta8b98a56c0152a07b8f4cbcd89aa2f01e 97513
sarvinozwakirjanova
August 2022 | 0 Ответы
pomogite pozhalusto pzha519d7eb8246a08ab0df06cc59e9dedb 6631
×
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.