1. 20с
2. если это число в десятичной,то будет 0
если в двоичной,то 13123312311<span> </span>
//PascalABC.Net 3.2
begin //true - если принадлежит, false - если не принадлежит
var x:=readreal ('x =');
var y:=readreal ('y =');
write ((sqrt(y*y+x*x)<=1) and (y>=0) and (y>=-x));
end.
Побольше обьяснений, а пока напишу так:
var A:integer;
begin
Writeln('Введите температуру, в зимнее время');
Readln(A);
If A>0 then
Writeln('Метеорологическая весна наступала')
else
Writeln('Метеорологическая весна не наступала');
end.
Допустим число 11 первое число 1×10=10
11=101