Uses Crt;
Var
f:text;
S,n,k,d:integer;
Begin
Assign(f,'TextIn.txt');
Reset(f);
Read(f,n);
k:=0;
For n:= 1 to n do
Begin
S:=0;
d:=n div 2;
While d<>0 do
Begin
if n mod d = 0 then S:=S+d;
d:=d-1
End;
if S = n then
Begin
WriteLn(n);
k:=k+1
End
End;
Close(f);
Assign(f,'TextOut.txt');
ReWrite(f);
Write(f,k);
Close(f);
ReadLn;
End.
Для правильной работы программы необходимо, чтобы эти файлы лежали в папке с программой:
примерно 45 минут. Сначало 2 брата садятся в лодку и переплывают на другой берег, один брат остаётся на берегу, другой возращается к отцу и матери. Потом в лодку садится отец, переплывает и отдаёт её сыну, тот переплывает к матери и брату. Два брата садятся в лодку и переплывают реку, один брат остаётся с отцом, а другой плывёт к матери. Переплыв реку он даёт лодку матери. Она переплывает реку и даёт лодку сыну, тот плывёт за братом и они в двоём переплывают реку на лодке.
Средства массовой информации играют очень важную роль в нашей жизни. Они информируют людей о различных событиях, которые происходят или могут произойти. Они также развлекают людей и помогают сделать их жизнь лучше. Но самое главное, что газеты, радио и телевидение приносят людям, — это информация. В наши дни очень важно получать полную и точную информацию. Те телевизионные программы, радиопередачи и газеты, которые обеспечивают надежной информацией, всегда популярны. Сенсационные события, такие как преступления, природные катастрофы или необычные происшествия, всегда очень интересны. Вот почему многие газеты и телевизионные программы рассказывают о них наряду с серьезной информацией. Обычно ежедневные средства массовой информации рассказывают о международных, государственных или местных новостях. В них также освещаются такие темы, как здравоохранение, искусство и другие. Во многих газетах есть статьи, где даются разные советы, аннотации книг, комиксы, кроссворды и так далее. В большинстве из них есть различные картинки, фотографии, иллюстрации. Средства массовой информации также привлекают внимание общественности к самым насущным проблемам в обществе. Это могут быть проблемы здравоохранения, образования, транспорта или даже коррупции в правительстве. Много внимания уделяется средствами массовой информации рекламе. Она помогает людям сориентироваться в разнообразии фирм и магазинов, которые предлагают свои товары и услуги. В целом средства массовой информации помогают нам сформировать наше мнение по различным событиям, обеспечивают нас информацией о том, что происходит в обществе, а также являются средством развлечения
var x: integer;
begin
write('Введите номер дня недели: ');
readln(x);
if (x = 1)then writeln('Понедельник');
if (x = 2)then writeln('ВТорник');
if (x = 3)then writeln('Среда');
if (x = 4)then writeln('Четверг');
if (x = 5)then writeln('Пятница');
if (x = 6)then writeln('Субота');
if (x = 7)then writeln('Воскресенье');
end.
