Каждый день у меня проходит как предыдущий:дом-школа-дом...ну иногда и недолгие прогулки в кругу друзей или один.Наверно это и хочется больше всего изменить,хочется изменить череду серых будней.Я хочу найти себе занятие по душе,хобби какое-нибудь.Ну или питомца завести домашнего.
Каждый день я сижу за компом,нахожусь в виртуальном мире и непонятно зачем,хочу больше общения в реальном мире.Думаю начать заниматься спортом,регулярно.Это внесёт что-то новое в мою разнообразную жизнь.Я читал(уже не помню где),что жизнь становится лучше,когда ты каждый день вносишь в нее что-то новое...
Вот например,с понедельника можно начать бегать по утрам,вместо того чтоб еще пол часа валяться в кровати(что я всегда и делаю),во вторник можно почитать какую-нибудь книгу незнакомого раннее автора-тоже не плохо,вместо просиживания своего времени за компьютером.В среду можно встретиться с друзья,а не сидеть дома перед телефизором.В четверг сходить куда-нибудь,где я раньше не был(вот думаю куда)...ну и так далее.Хочу найти новых друзей,"новые взгляды на мир".Наверное-конец :)
{PascalABC}
Program Puzzle;
var
R,day:integer;
week:array[1..7] of string;
i:integer;
s:string;
begin
week[7]:='Воскресенье';
week[6]:='Суббота';
week[5]:='Пятница';
week[4]:='Четверг';
week[3]:='Среда';
week[2]:='Вторник';
week[1]:='Понедельник';
s:=' -=Alphaeus=- ';
for i:=1 to 22 do begin write(s[i]); sleep(200) end;
writeln; writeln('ОК, Задумайте день недели (номер от 1 до 7)');
writeln('Удвойте этот номер');
writeln('Увеличьте результат на 5');
writeln('Умножьте полученное число на 5');
writeln('Теперь то, что получилось, умножьте на 10');
writeln('Введите полученный результат'); readln(R);
day:= round((R-250)/100);
writeln('');
case day of
1..7: writeln(' Вы задумали ',week[day]);
else writeln('Что-то пошло не так... Либо вы задумали не число между 1 и 7, либо ошиблись в рассчётах')
end;
writeln('');
end.
print('Введите путь к файлу: ')
f = open(input(),'r')
B = 'бвгджзклмнпрстфхцчшщ'
Max = 0
for S in f:
k = 0
for C in S.lower():
if C in B:
k+=1
if k > Max:
Max = k
MaxS = S
print(MaxS)