Перебрать все двузначные числа и вывести на экран только те...

@Oscar271 · Регистрация: 29.11.2011

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

в записи которых цифры отличны, вывести их количество.

@versa4e · 29.11.2011, 10:43

Pascal

var
  i,k:byte;
begin
  k:=0;
  for i:=10 to 99 do
    if (i mod 10)<>(i div 10) then
      begin
        write(i:3);
        inc(k);
      end;
  writeln(' kolichestvo:',k);
end.

@Oscar271 · 29.11.2011, 18:36 **[ТС]**

Спасибо огромное!

Добавлено через 2 часа 36 минут
Почему-то не пускается, набрал один в один.

@versa4e · 29.11.2011, 18:41

не запускается? или закрывается после запуска?

Pascal

1
2
3

  writeln(' kolichestvo:',k);
  readln
end.

так попробуй

@Oscar271 · 29.11.2011, 20:59 **[ТС]**

Точно, задержку вывода забыл.

Добавлено через 2 часа 6 минут
А зачем тут нужна

Pascal

inc(k);

&?

@versa4e · 29.11.2011, 21:06

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

Точно, задержку вывода забыл.

Добавлено через 2 часа 6 минут
А зачем тут нужна

Pascal

inc(k);

&?

если найдено очередное число, увеличиваем k на единицу, inc(k) равносильно k:=k+1

@Oscar271 0 / 0 / 0 Регистрация: 29.11.2011 Сообщений: 3
		1
	Перебрать все двузначные числа и вывести на экран только те... 29.11.2011, 07:31. Показов 4312. Ответов 5 Метки нет (Все метки) в записи которых цифры отличны, вывести их количество. 0

@Oscar271 0 / 0 / 0 Регистрация: 29.11.2011 Сообщений: 3
	29.11.2011, 18:36 [ТС]	3
	Спасибо огромное! Добавлено через 2 часа 36 минут Почему-то не пускается, набрал один в один. 0

	29.11.2011, 21:06