Точные копии часов Nixon ~ Graham

Жаль на группу нельзя вывести табличку "КРУГЛОСУТОЧНО". Подсчитать сумму всех нечётных чисел промежутке от 101 до 301. хех....что делать....:))). Program Balashova_3;uses crt;var k,i:integer;begin clrscr;for i:=101 to 301 do if mod <> then k:=k+i; writeln('Sum: ',k);readkey; end. ну если не спится то можешь эту решить :)))Подсчитать сумму цифр введённого целого числа (на каждом шаге выделяется последняя цифра числа, затем число делится на 10, процесс повторяется пока число не 0). program Balashova_4;uses crt;var x,s:integer;begin clrscr;writeln('Enter number: ');readln(x);repeat s:=s+x mod 10;x:=x div 10;until x=0;writeln('Sum ',s);readkey; end. Огромная просьба не удалать тему.Обязуюсь следить за ней добавлять реглярно новые произведения. Чехия.Карловарская сольПахнет грецким орехом,Пахнет яблоком, дымом сном.Вспоминаю разрушенный домИ таким вот огрехомЯ меняю пароль...Выступаю ночиВзяв собою всё кромеСкудной точные копии часов Nixon чести заброшенных дней.когда перед кучкой людейСнова выкину номер,Я прошу не молчи...