Home
О нас
Products
Services
Регистрация
Войти
Поиск
jemma2001
@jemma2001
July 2022
1
7
Report
uses crt;
var a, b, c: longint;
begin
for c:=10 to 10000000 do
begin
a:=c;
b:=0;
while a>0 do
begin
b:=b*10+a mod 10;
a:=a div 10;
end;
if trunc(c*1.2) = b then writeln (c);
end;
end.
Напишите эту программу только с циклом repeat
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
elenaklon
Uses crt;
var
a,b,c:longint;
begin
c:=10;
repeat
a:=c; b:=0;
repeat
b:=b*10+a mod 10;
a:=a div 10;
until a<=0;
if trunc(c*1.2)=b then writeln(c);
c:=c+1
until c>10000000
end.
0 votes
Thanks 1
GrOmAmG
ну вроде верно, но это не точно C:
More Questions From This User
See All
jemma2001
August 2022 | 0 Ответы
{y^2-3xy=-2 {x^2+5xy=11...
Answer
jemma2001
August 2022 | 0 Ответы
cifry chetyrehznachnogo chisla kratnogo 5 zapisali v obratnom poryadke i poluchili1e2c072187b31b4469f77ff10cd84089 90204
Answer
jemma2001
July 2022 | 0 Ответы
zamenite slovosochetanie podozritelno smorshilsya slovosochetaniem so svyazyu upravl
Answer
jemma2001
July 2022 | 0 Ответы
najti dvojnoj faktorial chisla 5
Answer
jemma2001
July 2022 | 0 Ответы
skazhite pozhalujsta zhalkij kustik pohozhij na rastryopannyj venik eto sravnenie
Answer
jemma2001
July 2022 | 0 Ответы
uses crt; var a:integer; begin for a:=10000 to 99999 do if (a mod 133=125) and (...
Answer
jemma2001
July 2022 | 0 Ответы
ukazhite vse celye chislakotorye uvelichivayutsya na 20esli ih cifry zapisat v ob7eec9d5af27428a728fbc4f5a1f11ad1 15166
Answer
jemma2001
July 2022 | 0 Ответы
Uses crt; var a:integer; begin for a:=10000 to 99999 do if (a mod 133=125) and (...
Answer
jemma2001
March 2022 | 0 Ответы
zapolnite matricu soderzhashuyu n strok i m stolbcov 1 6 7 12 2 5 8 11 3 4 9 10za
Answer
jemma2001
March 2022 | 0 Ответы
nuzhno sformirovat linejnyj massiv po formule vyvod dolzhen byt v stroku i stol
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 "uses crt; var a, b, c: longint; begin for c:=10 to 10000000 do begin a:=c; ..."
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 © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a,b,c:longint;
begin
c:=10;
repeat
a:=c; b:=0;
repeat
b:=b*10+a mod 10;
a:=a div 10;
until a<=0;
if trunc(c*1.2)=b then writeln(c);
c:=c+1
until c>10000000
end.