begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.
Когда что то качается, то обычно показывается не только скорость но и
время до конца скачивания (при данной скорости), так что само значение
скорости нужно только чтоб видеть увеличивается скорость, уменьшается
или стабильна.
для размеров файлов
1 бит это одна ячейка, которая может быть или 0 или 1
1 б(байт) = 8 бит
1 Кб (килобайт) = 1024 б
1 Мб (мегабайт) = 1024 Кб
1 Гб (гигабайт) = 1024 Мб
Для практического использования данных знаний вполне достаточно
Если
же интересно покопаться, то на самом деле есть килобайты и кибибайты и
они отличаются, потому что кило = 1000, а киби = 2^10 = 1024.
Если говорить о скорости, то она
стандартно считается в битах, килобитах, мегабитах и тд. Т.е. в 8 раз
меньше соответственно байта, килобайта, мегабайта и тд. Но для
практического использования это все не нужно)
№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else
write('Треугольник неравнобедренный');
end.
БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец
№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.
БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
если i - нечётное, то
прибавить к s
вывести s
конец