Ответ А . Потому что не всегда февраль 28 дневный
Если Pascal:
var
n: byte;
i: integer;
begin
readln(n);
for i:=100 to 999 do
if ((i mod 10) + ((i div 10) mod 10) + (i div 100)) = n then writeln(i);
end.
б) когда созрела потребность общения между людьми с разных точек планеты и появились технические возможности
var
x, y : real;
begin
read (x, y);
if (x > 0) and (y < 0) then writeln ('Yes') else writeln ('No');
end.
Не знаю только, как рассмотреть случай, если одна из координат = 0
var
a, b, c : real;
begin
if (a > b) then
begin
c := a;
a := abs (a + b);
b := sqr (c) - sqr (b);
end
else
begin
c := b;
b := abs (b + a);
a := sqr (c) - sqr (a);
end;
writeln (a, ' ', b);
end,
Какую длину и где сама окружность