Ознакомьтесь с программой таблица умножения: var i,j: integer; begin for i: =1 to 10 do begin for j: =1 to 10 do write(i*j: 5); writeln; end; end. внесите изменения в программу: необходимо вывести на экран заголовки строк и столбцов таблицы.

Чтобы информация была информацией для человека, необходимо чтобы она удовлетворяла всем свойствам информации, была уктуальна и доступна.

 

Если городской человек решает задачу о скорости лошади и узнает что за час она может пробежать 20 километров то врядли для него это новая информация, т.к она не актуальна ему

 

А если бы он жил в местности( и решил такую задачку) где люди ездят на лошадях, т.к другого вида транспарта там нет, и узнает что если он поедет на лошади то будет успевать там куда то там ему надо, то это будет информацией для него

1. есть число n.  пускай n=123. что будет, если разделить его на 10? получится 12,3. то есть 12 - целая часть, а 3 - остаток. далее снова делим на 10. 1,23. и в последний раз: 0,123. целая часть =0. на этом останавливаемся. а сколько раз выполнили деление? 3. вот и ответ. теперь запишем на паскале: как видно из вышенаписанного, нужно продолжать выполнять действия, пока целая часть не равна 0. то есть while n> 0 do и у нас есть некоторый счетчик итераций, значение которого и будет являться ответом. а тело цикла: n div 10 (целочисленное деление) inc(k) (увеличение счетчика) вторая: как я понял, нужно просто вывести на экран то, что должно получиться? нужно в цикле пройти по каждому символу. если он равен "*" (if s[i] = '*' then), ничего не делать. иначе вывести его два раза (write(s[i], добавить данные в начало файла нельзя. нужно либо записывать в новый, либо перезаписывать исходный (предварительно считав все в память)