Вот программа : program xxx; <p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>
ответ
Смотри объяснения ниже:
Объяснение:
1) Устанавливаешь отступы ползунками около листа
2)Вводишь свой текст
3)Нажимаешь на дискету с ручкой в меню, выбираешь нужную папку и сохраняешь под тем же именем
4)закрываешь WORD
5)В проводнике ишешь свою сохранку из пункта 3
6)кликаешь
7)Ентером ставишь абзатцы, как тебе кажется правильным
8)В начале первой строки ставишь ентер, на новой строке пишешь название текста
9)выделяешь заголовок, нажимаешь "главная", там где жирный, курсив, подчёркнутый (разные буквы), выбираешь подчёркивание
10) Нажимаешь на дискету со стрелочками
Первое задание выполнено!
На второе пока нет времени, может, потом добавлю
Прости за неудобства, сам устал
<p>program xxx;</p><p> var i, k, d, e, s : integer;</p><p>begin</p><p> k:=0;</p><p> for i:= 10 to 99 do</p><p> begin</p><p> d:= i div 10;</p><p> e:= i mod 10;</p><p> s:=d + e;</p><p> if i mod s = 0 then k:=k+1</p><p> end;</p><p> write ('кол-во чисел которые делятся на сумму своих цифр=', k);</p><p> readln</p><p>end.</p>