const
mas:array[1..31] of string =('Понедельник',' Вторник', 'Среда','Четверг', 'Пятница', 'Суббота', 'Воскресенье','Понедельник',' Вторник', 'Среда','Четверг', 'Пятница', 'Суббота', 'Воскресенье','Понедельник',' Вторник', 'Среда','Четверг', 'Пятница', 'Суббота', 'Воскресенье','Понедельник',' Вторник', 'Среда','Четверг', 'Пятница', 'Суббота', 'Воскресенье','Понедельник',' Вторник', 'Среда');
var
i,n:integer;
begin
writeln (n);
for i:=1 to 31 do
if (i=n) then writeln (mas[i]);
end.
Текстовый редактор Microsoft Word предназначен для набора текста с клавиатуры, а также редактирования, копирования, создания таблиц, одним словом для того, чтобы созданный Вами документ выглядел максимально привлекательно, стильно и информативно. С вы можете составить такие документы как:
оформить курсовую или дипломную работу;
составить резюме кандидата на должность;
напечатать заявление о приеме на работу;
подготовить многомиллионный договор на поставку товара;
сочинить и отредактировать для печати целый роман.
Другими словами, текстовый редактор Microsoft Word, будет полезен абсолютно любому пользователю компьютера, который так или иначе связан с текстовыми документами.
var a:array[0..6] of string =('voskresenije', 'ponedelnik', 'vtornik', 'sreda', 'chetverg',
'pjatnica', 'subbota');
var c:array[1..31] of string;
var b,N,i:integer;
begin
b:=1;
for i:=1 to 31 do begin
c[i]:=a[b];
inc(b);
if(b=7) then b:=0;
end;
repeat
write('Vvedite N: ');
readln(N);
until(N<=31);
writeln(c[N]);
readln;
end.