C++
<span>#include<bits/stdc++.h>
using namespace std;
string s;
main()
{
cin>>s;
if(s[0]>96)
s[0]-=32;
cout<<s<span>;
}
PascalABC.NET
</span></span><span>var s:string;
begin
read(s);
s[1]:=UpperCase(s[1]);
writeln(s);
end<span>.
</span></span><span>
</span>
Для текущего месяца (т.е. только для октября, потому что не было указано в вопросе учитываются другие месяцы или нет)
program zd;
const
b=26;
var
a,c:byte;
begin
writeln('Введите день');
readln(a);
if a<b then {проверяется условие, если введенный день меньше заданного дня, то вычислить оставшиеся дни}
c:=b-a
else {иначе вывести смс}
writeln('Данный день уже прошёл');
writeln('Осталось', с, 'дней');
end.
Вроде бы правильно) извиняюсь за исправления, просто тороплюсь
Var i:integer;
begin
for i:=1 to 10 do writeln(i) ;
end.
Звуковая,числовая,графическая,видео-информация,текстовая
Var a: array[1..5] of Integer;
rand,count,i: Integer;
begin
for i:=1 to 5 do
begin
a[i]:=Random(100);
writeln(a[i]);
if (a[i] mod 5=0) and (a[i] mod 10=0) then Inc(count);
end;
writeln('Кол-во: ',count);
end.