Объяснение:
42,95,75,54
*мне не хватает необходимых символов, чтобы отправить ответ, поэтому я написал это
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.
помоему я уже делал эту задачу
1) находим расстояния от начала координат до точек ( длины отрезков )
S = x^2+ y ^2 , где x и y - координаты двух точек
2) сравниваем их
Позвольте я тут влезу. вот нормальный код, в приложении смотрите.
Процессор
<span>сетевая карта
</span>оперативная память
<span>материнская плата
</span>видеокарта
<span>блок питания
</span><span>накопитель (дисковод)
</span><span>ПЗУ</span>