Program gt;
var x1,y1,x2,y2,r:real;
begin
readln(x1,y1,x2,y2);
readln(r);
if((sqr(x1)+sqr(y1))<(sqr(x2)+sqr(y2)))then writeln('Pervaya')else
writeln('2-raya');
if(abs(sqrt(sqr(x1)+sqr(y1))-r)<abs(sqrt(sqr(x2)+sqr(y2))-r))
then writeln('Pervaya-ornositelno okru') else writeln('2-raya otnositelno okru');
end.
F должно быть равно "1", т.к. для произведения(а факториал - это произведение) нейтральное число - "1", а для суммы - "0".
while k, нельзя преобразовать тип Integer к типу boolean в Паскале, даже если и было можно, то данная запись давала нам бесконечный цикл, нужно заменить на while k <= n
--------------------------------
k:=1; f:= 1;
while k <= n do begin
f:= f*k;
k:= k+1;
end;
===== PascalABC.NET =====
begin
var n := ReadInteger('n =');
var A := ArrRandom(n, -99, 99);
A.Println;
var B := ArrRandom(n, -99, 99);
B.Println;
var s := (A + B).AsEnumerable;
Write('Min = ', s.Min, ', max = ', s.Max)
end.
Лазерный, потому что
- у него более четкая черно-белая печать
- емкий картридж (от 1000 до 3000 страниц)
- большой срок службы
- простота в использовании
- стоимость тонера для заправки намного дешевле, чем например у струйного
- высокая скорость печати
- большой лоток подачи бумаги (от 50 страниц)