Напечатать в одну строку все литеры между '0' и '9', включая и эти цифры

@EvgeshaGesha · Регистрация: 03.01.2014

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

Выберите программы, которые решают задачу: напечатать в одну строку все литеры между '0' и '9', включая и эти цифры.

1)

Pascal
1
2
3
4
5
var i: integer;
begin 
for i:=ord('0') to ord('9') do 
write(chr(i)); 
end.

2)

Pascal
1
2
3
4
5
var c: char;
begin 
for c:='0' to '9' do 
write(c); 
end.

3)

Pascal
1
2
3
4
5
6
7
8
var i: integer; 
    a: string[10];
begin
a[1]:='0';
for i:=1 to 9 do
a[i]:=chr(ord('0')+i);
write(a);
end.

@Puporev · 03.09.2015, 14:30

1 и 2, третью нужно переделать

Pascal
1
2
3
4
5
6
7
8
var i: integer;
    a: string[10];
begin
a:='';
for i:=0 to 9 do
a:=a+chr(ord('0')+i);
write(a);
end.

@bormant · 03.09.2015, 17:52

третью можно переделать чуть иначе:

Pascal
4
a[0]:=#10;

Pascal
4
a[0]:=^J;

Pascal
4
a[0]:=Chr(10);

Новые блоги и статьи Все статьи Все блоги /
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .