Вопрос Помогите составить программу на TP 7.0 (2 задание)

[cahe4ka]

Помогите составить программу на TP 7.0 (2 задание)
//otvet.imgsmail.ru/download/68615577_0bf9e0703cccb47517d5ea3438c0498e_800.jpg

 

[vladinmars]

Помогаю Используете цикл for от 32. Затем через функцию Chr() выводите символ без перевода строки (кодом символа будет агрумент цикла). Затем проверяете через mod, если код кратный 16, то переводите строку

 

[пашок]

program q195781050; var i: Integer; begin i := 32; repeat Write(Chr(i), #32); if (i + 1) mod 16 = 0 then WriteLn; Inc(i); until i = 256; ReadLn; end.