12.05.2013, 22:56
|
#4 (permalink)
|
Новичок
Регистрация: 12.05.2013
Сообщений: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Цитата:
Сообщение от Vladimir_S
Извольте:
Код:
Var
a,b1,b2:real;
i,i1,i2:Integer;
Begin
i:=1;
i1:=i;
write(i:3,': ');
readln(b1);
b2:=1.7E308;
Repeat
Inc(i);
Write(i:3,': ');
readln(a);
If a<>0 then
begin
If a<b1 then
begin
b2:=b1;
i2:=i1;
b1:=a;
i1:=i;
end
else
If a<b2 then
begin
b2:=a;
i2:=i;
end;
end;
Until a=0;
Writeln('Minimals: NN ',i1,' and ',i2,' equal to ',b1:0:3,' and ',b2:0:3);
Writeln('Largest of them is N ',i2,' equal to ',b2:0:3);
Readln
End.
|
что значит вот это=> b2:=1.7E308;
|
|
|