Это цикл. Переменная i меняется от a до b (с шагом 1) и для каждого значения переменной i выполняется тело цикла. Например, если a=2, b=5, то переменная i будет последовательно принимать значения 2, 3, 4, 5.
Общий вид цикла для (этот цикл ещё называют цикл с переменной) нц для i от i1 до i2 | тело цикла (последовательность команд) кц Здесь i – имя величины целого типа, i1, i2 – произвольные целые числа или выражения с целыми значениями. Тело цикла последовательно выполняется для i = i1, i = i1 + 1, i1 + 2, …i = i2. Правила алгоритмического языка допускают задание любых целых i1, i2. в частности, i2 может быть меньше i1. этот случай не считается ошибочным – просто тело цикла не будет выполнено ни разу, а компьютер сразу перейдет к выполнению команд, записанных после кц.
var v:string; ch,p:integer;
begin
writeln('Введите число');
readln (ch);
case ch of
1: v:= ('один');
2: v:= ('два');
3: v:= ('три');
4: v:= ('четыре');
5: v:= ('пять');
6: v:= ('шесть');
7: v:= ('семь');
8: v:= ('восемь');
9: v:= ('девять');
10: v:= ('десять');
11: v:= ('одиннадцать');
12: v:= ('двенадцать');
13: v:= ('тринадцать');
14: v:= ('четырнадцать');
15: v:= ('пятнадцать');
16: v:= ('шестнадцать');
17: v:= ('семнадцать');
18: v:= ('восемнадцать');
19: v:= ('девятнадцать');
20: v:= ('двадцать' );
21,22,23,24,25,26,27,28,29: begin p:=(ch mod 10); v:= ('двадцать' ); end;
30: v:= ('тридцать ');
31,32,33,34,35,36,37,38,39: begin p:=(ch mod 10); v:= ('тридцать' ); end;
40: v:= ('сорок');
41,42,43,44,45,46,47,48,49: begin p:=(ch mod 10); v:= ('сорок' ); end;
50: v:= ('пятьдесят ');
51,52,53,54,55,56,57,58,59: begin p:=(ch mod 10); v:= ('пятьдесят' ); end;
60: v:= ('шестьдесят ');
61,62,63,64,65,66,67,68,69: begin p:=(ch mod 10); v:= ('шестьдесят' ); end;
70: v:= ('семьдесят ');
71,72,73,74,75,76,77,78,79: begin p:=(ch mod 10); v:= ('семьдесят '); end;
80: v:= ('восемьдесят ');
81,82,83,84,85,86,87,88,89: begin p:=(ch mod 10); v:= ('восемьдесят' ); end;
90: v:= ('девяносто ');
91,92,93,94,95,96,97,98,99: begin p:=(ch mod 10); v:= ('девяносто ' ); end;
100: v:=('сто');
end;
writeln(v,p);
end.
Так оно по крайней мере запускается. Но нет обработки переменной p, по ней надо делать отдельный case of.
Например, если a=2, b=5, то переменная i будет последовательно принимать значения 2, 3, 4, 5.
Общий вид цикла для (этот цикл ещё называют цикл с переменной)
нц для i от i1 до i2
| тело цикла (последовательность команд)
кц
Здесь i – имя величины целого типа, i1, i2 – произвольные целые числа или выражения с целыми значениями. Тело цикла последовательно выполняется для i = i1, i = i1 + 1, i1 + 2, …i = i2.
Правила алгоритмического языка допускают задание любых целых i1, i2. в частности, i2 может быть меньше i1. этот случай не считается ошибочным – просто тело цикла не будет выполнено ни разу, а компьютер сразу перейдет к выполнению команд, записанных после кц.