Диск-носитель
Бумага-носитель
Флешка-носитель
Указатель - носитель
Var
day,a,mon,i,i1,max:integer;{объявляем переменные}
begin
readln(mon,day);{вводим месяц и день}
a:=day;
for i:=mon to 12 do begin
writeln;
write(i,': ');
case mon of{сколько дней в месяце}
9:max:=30;
10:max:=31;
11:max:=30;
12:max:=31;
end;
for i1:=a to max do begin
if a>max then break;
write(a,' ');
a:=a+7;
end;
a:=a-max;
end;
end.
помоему я уже делал эту задачу
Пусть х основание системы
ax^2+x+5=61
ax^2+x=56.
учтем что х целое и не меньше 6.
x^2<=56
x<=7
6<=x<=7
a=0 x=56
x=6 a*36+6=56
a*36=50
нет целого решения
х=7
a*49+7=56 a=1
<span>ответ 7, 56</span>
42
.................................................
У файла "index" поменяй формат с "txt" на "html" и закинь все вместе в какую-нибудь папку.