Трехзначное число заканчивается цифрой 3. Найти это число

@Kolya1114 · Регистрация: 01.12.2012

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

Трицыфровое число заканчивается цифрой 3. Если эту цифру переместить через два знака влево, то новое число будет на 1 больше утроенного исходного числа. Найти это число.

@ermolay · 21.01.2014, 02:23

Pascal

var
  i: integer;
begin
  for i:=100 to 999 do
    if (i mod 10=3) and (300 + i div 10-3*i=1) then
      writeln(i);
  readln;
end.

Добавлено через 1 минуту
еще вариант:

Pascal

var
  i,j: integer;
begin
  for i:=1 to 9 do
    for j:=0 to 9 do
      if 300+i*10+j-(i*100+j*10+3)*3=1 then
        writeln(i,j,3);
  readln;
end.

@GigaFriend · 23.01.2014, 21:00

Сообщение от ermolay

Pascal

var
  i: integer;
begin
  for i:=100 to 999 do
    if (i mod 10=3) and (300 + i div 10-3*i=1) then
    begin
      writeln(i);
      break;
    end;
  readln;
end.

лучше с остановкой цикла вот так

@Kolya1114 1 / 1 / 1 Регистрация: 01.12.2012 Сообщений: 116
		1
	Трехзначное число заканчивается цифрой 3. Найти это число 20.01.2014, 22:00. Показов 2846. Ответов 2 Метки нет (Все метки) Трицыфровое число заканчивается цифрой 3. Если эту цифру переместить через два знака влево, то новое число будет на 1 больше утроенного исходного числа. Найти это число. 0

Опции темы

Трехзначное число заканчивается цифрой 3. Найти это число

Решение