Обычна вводиться данное задание с условием:
if данное поле заполнено цифрой от: "10-20" + его значение "лет"
if "21-24" + "год"
if "25-120" + "год"
примерно так.
<span>Толстой Лев Николаевич (28 августа 1828 года, усадьба Ясная Поляна Тульской губернии - 7 ноября 1910 года, станция Астапово (ныне станция Лев Толстой) Рязано-Уральской ж. д.) - граф, русский писатель.
Родился в аристократической графской семье. Получил домашнее образование и воспитание. В 1844 году поступает в Казанский университет на факультет восточных языков, затем учится на юридическом факультете. В 1847, не окончив курс, уходит из университета и приезжает в Ясную Поляну, полученную им в собственность по разделу отцовского наследства. В 1851 осознав бесцельность своего существования и, глубоко презирая самого себя, отправился на Кавказ в действующую армию. Там он стал работать над своим первым романом "Детство. Отрочество. Юность". Через год, когда роман опубликовали, Толстой стал литературной знаменитостью. В 1862, 34 лет от роду, Толстой женился на Софье Берс, восемнадцатилетней девушке из дворянской семьи.В течение первых 10—12 лет после женитьбы он создает «Войну и мир» и «Анну Каренину». В 1879 начинает писать "Исповедь", где рассказывает о перевороте в своих взглядах, смысл которых он видел в разрыве с идеологией дворянского класса и переходе на сторону "простого трудового народа". В 1886 "Власть тьмы", в 1886 пьесу "Плоды просвещения", в 1899 году на свет выходит роман "Воскресенье", драма "Живой труп" 1900, повесть "Хаджи-Мурат" 1904. Осенью 1910 года, выполняя свое решение прожить последние годы соответственно своим взглядам, тайно покинул Ясную Поляну, отрекшись от «круга богатых и ученых». Заболев в пути, умер. Был похоронен в Ясной Поляне. надеюсь подойдёт
</span>
Можно использовать другие команды? Например Trunc?
Если да, то вот:
var i,j,n:integer;
s:real;
begin
readln(i,j);
s:=i/j;
n:=i-j*Trunc(s); {Функция Trunc выделяет целую часть}
writeln(n);
<span>end.
Если нельзя пользоваться Trunc, то вот другое решение:
var i,j:integer;
s,m:real;
begin
readln(i,j);
m:=i/j;
s:=m;
while s>=1 do s:=s-1;
m:=m-s
;writeln(i-j*m;);
<span>end.</span></span>
S=640*64=40960 пикселей
N=64
i=5
V=S*i=40960 * 5=204800 бит=25600 байт=25 килобайт
В школе имеется множество различных уроков, но больше всего мне нравится урок информатики. Этот предмет очень познавателен и интересен.Урок информатики у нас проходят очень весело и интересно, мы печатем какие-нибудь тексты и делаем какие-нибудь задания, а потом у нас все проверяют. Благодаря информатике я научилась многому, а также сейчас я довольно бытро печатаю на клавиатуре.<span> </span>