cahe4ka C cahe4ka Регистрация 22 Авг 2013 Сообщения 99 Репутация 0 Спасибо 0 Монет 0 21 Ноя 2016 #1 Помогите составить программу на TP 7.0 (2 задание) //otvet.imgsmail.ru/download/68615577_0bf9e0703cccb47517d5ea3438c0498e_800.jpg
Помогите составить программу на TP 7.0 (2 задание) //otvet.imgsmail.ru/download/68615577_0bf9e0703cccb47517d5ea3438c0498e_800.jpg
vladinmars V vladinmars Регистрация 3 Июн 2013 Сообщения 94 Репутация 0 Спасибо 0 Монет 0 21 Ноя 2016 #2 Помогаю Используете цикл for от 32. Затем через функцию Chr() выводите символ без перевода строки (кодом символа будет агрумент цикла). Затем проверяете через mod, если код кратный 16, то переводите строку Позитивный голос 0
Помогаю Используете цикл for от 32. Затем через функцию Chr() выводите символ без перевода строки (кодом символа будет агрумент цикла). Затем проверяете через mod, если код кратный 16, то переводите строку
пашок П пашок Регистрация 17 Окт 2013 Сообщения 84 Репутация -3 Спасибо 0 Монет 0 21 Ноя 2016 #3 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. Позитивный голос 0
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.