Поиск натуральных чисел

@Dukem · Регистрация: 24.09.2010

Author24 — интернет-сервис помощи студентам

Есть задача: Найти все натуральные трехзначные числа, каждое из которых обладает следующим свойством: первая цифра в три раза меньше последней его цифры.

Ее решил таким способом:

//uses crt;
Var n1,n2,n3:integer;
s:string[3];
Begin
For n1:=1 to 3 do
begin
n3:=n1*3;
for n2:=0 to 9 do
begin
s:=Char($30+n1)+Char($30+n2)+Char($30+n3);
//Вывод решения на экран
writeln(s);
end;
end;
End.

Подскажите как можно ее решить при помощи операторов Mod и DIV.

Добавлено через 23 минуты
Вроде получилось. (Подскажите верно ли?)

var i,a,p,b,c,o : integer;
begin

for i:=100 to 999 do begin

a:=i mod 10;

p:=i div 10;

b:=p mod 10;

c:=i div 100;

o:=c*100+a*10+b;

if (a/3=c) then writeln (i)
end;
end.

@pryda · 26.11.2010, 14:13

Dukem, зачем так много писать?

Pascal

1 2	for i:=100 to 999 do if i div 100*3=i mod 10 then writeln(i);

вот и все.

@Dukem 0 / 0 / 0 Регистрация: 24.09.2010 Сообщений: 15
		1
	Поиск натуральных чисел 26.11.2010, 12:54. Показов 1053. Ответов 1 Метки нет (Все метки) Есть задача: Найти все натуральные трехзначные числа, каждое из которых обладает следующим свойством: первая цифра в три раза меньше последней его цифры. Ее решил таким способом: //uses crt; Var n1,n2,n3:integer; s:string[3]; Begin For n1:=1 to 3 do begin n3:=n13; for n2:=0 to 9 do begin s:=Char($30+n1)+Char($30+n2)+Char($30+n3); //Вывод решения на экран writeln(s); end; end; End. Подскажите как можно ее решить при помощи операторов Mod и DIV. Добавлено через 23 минуты* Вроде получилось. (Подскажите верно ли?) var i,a,p,b,c,o : integer; begin for i:=100 to 999 do begin a:=i mod 10; p:=i div 10; b:=p mod 10; c:=i div 100; o:=c100+a10+b; if (a/3=c) then writeln (i) end; end. 0

	26.11.2010, 14:13

Опции темы

Поиск натуральных чисел

Решение