Var n,m:interer;
Begin
write('Введите день') ; Readln(d);
write('Введите месяц'); Readln(m);
if (m = 2) and (d=28) then <span> writeln('День - 1',' Месяц - 3');</span><span> if (m=1) or (m=3) or (m=5) or (m=7) or (m=8) or (m=10) or (m=12) then</span><span> if (d>1) and (d<31) then begin</span><span> d:=d+1;</span><span> writeln('День -',d,'Месяц- ',m); end</span><span> else if d=31 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;</span><span> if (m=2) or (m=4) or (m=6) or (m=9) or (m=11) they</span><span> if d<30 then begin d:=d+1; writeln('День -',d,'Месяц- ',m); end</span><span> else d=30 then begin m:=m+1; wrteln('День - 1','Месяц- ',m); end;
</span><span>readln;
end.
НЕДОРАБОТАНА</span>
<em><u>Вариант с процедурой Delete</u></em>
var
s:string;
k:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
Delete(s,k,1);
Writeln('Результат: ',s)
end.
<em><u>Вариант с функцией Copy</u></em>
var
s:string;
k,n:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
n:=Length(s);
s:=Copy(s,1,k-1)+Copy(s,k+1,n-k);
Writeln('Результат: ',s)
end.
<em><u>Вариант с циклами</u></em>
var
s,s1:string;
k,i,n:integer;
begin
Write('Введите слово: '); Readln(s);
Write('Какую по порядку букву удалить? '); Read(k);
n:=Length(s);
s1:='';
for i:=1 to k-1 do s1:=s1+s[i];
for i:=k+1 to n do s1:=s1+s[i];
Writeln('Результат: ',s1)
end.
<em><u>Тестовое решение (одинаково для всех вариантов):</u></em>
Введите слово: Таракан
Какую по порядку букву удалить? 4
Результат: Таркан
<em><u>Блок-схемы всех вариантов находятся во вложениях</u></em>
Ответ 1.
Т.к. (1<3)&((1<2)\/(1>2))=1&(1\/0)=1&1=1
Begin readarrinteger(5).SortedDescending.Print; end.