Вопрос по информатике:
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
- 12.06.2018 23:26
- Информатика
- remove_red_eye 17703
- thumb_up 11
Ответы и объяснения 2
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.
- 13.06.2018 16:23
- thumb_up 41
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.
- 14.06.2018 06:39
- thumb_up 51
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.