Program abc;
var
n, i: integer;
s: real;
begin
write('Введите количество чисел: ');
readln(n);
for i := 1 to n do
s := s + 1 / i;
write('Сумма обратных чисел = ', s);
end.
Вот код для qbasic'a SCREEN 12 cls LINE (200, 200)-(350, 400), , B LINE (200, 200)-(275, 100) LINE (275, 100)-(350, 200) CIRCLE (275, 160), 20 PAINT (275, 160) LINE (250, 250)-(300, 300), , B LINE (275, 250)-(275, 300) LINE (250, 270)-(300, 270) LINE (350, 400)-(355, 210), , B LINE (350, 210)-(370, 200), , B LINE (350, 400)-(400, 400) LINE -(400, 380) LINE -(380, 380) LINE -(380, 360) LINE -(355, 360) LINE (325, 165)-(325, 100) LINE -(310, 100) LINE -(310, 145)
Program ves;
var
i,min,ch:LongInt;
begin
readln(ch);
min:=ch;
for i := 1 to 3 do
begin
readln(ch);
if min>ch then min:=ch;
end;
writeln(min)
end.
пж отметь как лучший
1) ( в 2сс)
0.0000010101 =0.10101*2^(-5)
2) А = 0.10111*2^(-11) =0.0000000000010111 (в 2сс)
В = 0.11101*2^1= 1.1101 (в 2сс)
А+В = 1.110100000001011=0.1110100000001011*2^(1)
Интернет -это инфррмационная система электронных документов