Var sp: real;
<span> n,k,m,mn,mx: integer;
</span><span>begin
</span><span> mx:=0; mn:=300;
</span><span> readln(n);
</span><span> k:=0;
</span><span> while k<n do
</span><span> begin
</span><span> read(sp);
</span><span> m:=round(sp);
</span><span> if m<mn then mn:=m;
</span><span> if m>mx then mx:=m;
</span><span> k:=k+1;
</span><span> end;
</span><span> write(mn);
</span><span> if mx>80 then writeln(' YES')
</span><span> else writeln(' NO');
</span><span>end.
</span><span>10
</span><span>56.2 73.4 80.6 92.4 45.8 65.7 97.2 105.6 73.0 89.2
</span><span>46 YES
</span>
В них можно вполне в короткое время вычислять через ячейки с особыми условиями, будто это СУММ или ЕСЛИ. Через электронную таблицу можно спокойно делать итоги, именно электронной таблицей пользуются основные приложения как Accses, в основном это программы для создания Баз данных.
Типы данных в Excel:
Текстовый
Числовой
Дата и время
Общий
Переводим число 598 в 2-ричную систему счисления (делим на 2 с остатком):
598=2*299+0
299=2*149+1
149=2*74+1
74=2*37+0
37=2*18+1
18=2*9+0
9=2*4+1
4=2*2+0
2=2*1+0
1=2*0+1
598₁₀=1001010110₂
Число имеет 10 знаков, а надо 16, поэтому слева дополняем 6 нулями
0000001001010110
Поскольку число отрицательное, то в старшем (левом крайнем) разряде записываем 1. Получаем окончательное 16-разрядное компьютерное представление
1000001001010110
Ответ: 1000001001010110
Вроде бы так, в паскале или в делфи будет по другому выглядеть
Алг Сумма
нач
цел a, b, s, i
вывод "Введите два числа", нс
ввод a, b
s:=0
нц для i от a до b
s:=s+i*i
кц
вывод "Сумма квадратов = ", s
кон