Var
f: Text;
n, s, e: integer;
begin
n := 0;
s := 0;
Assign(f, 'input.txt');
Reset(f);
while not Eof(f) do
begin
readln(f,e);
n := n + 1;
s := s + e
end;
Close(f);
writeln('В файле ', n, ' чисел; их сумма равна ', s)
end.
Тестовое решение:
В файле 10 чисел; их сумма равна 213
Содержимое файла input.txt:
24
37
14
-6
42
58
3
14
0
27
В 10 раз
Пример:1,00001*10=10,0001
Объяснение:
Обычная не новогодняя елочка без звезды =) Нужна звезда?
SCREEN 9
FOR b = 0 TO 4
y = y + 30
h = h + 10
LINE (200, 70 + y)-(200 - h, 100 + y), 2
LINE (200, 70 + y)-(200 + h, 100 + y), 2
LINE (200 - h, 100 + y)-(200 + h, 100 + y), 2
PAINT (200, 75 + y), 2
NEXT b
LINE (190, 101 + y)-(210, 130 + y), 4, BF
избавимся от степеней
137,11*10(5)____1,3711*10(7)
137,11*100000____1,3711*10000000
13711000 = 13711000
153,79*10(-3)_____1,5379*10(0)
153,79*0.001___1,5379*1
0,15379 < 1,5379
1,357*10(5)____1357*10(1)
1,357*100000____1357*10
135700 > 13570