1. Тип Byte так как 32<256
2. Радиус Земли в метрах около 6400000 вполне подойдет integer
3. Масса человека в граммах - <span>integer
4. </span>Температура воздуха в градусах Цельсия в любой из дней в году - integer
5. Количество праздничных дней в году - Byte
6. произведение всех чисел от 1 до 100 - word
7. сумма двух произвольных чисел из отрезка от -200 до 200.
- integer
Остатки от деления:
- 2330 | 2 => 0
- 1165 | 2 => 1
- 582 | 2 => 0
- 291 | 2 => 1
- 145 | 2 => 1
- 72 | 2 => 0
- 36 | 2 => 0
- 18 | 2 => 0
- 9 | 2 => 1
- 4 | 2 => 0
- 2 | 2 => 0
- 1 | 2 => 1
Записываем в обратном порядке 
Ответ: 100100011010
<em>Есть еще способ через таблицы, но их надо иметь</em>
56*60=3360 сек время скачивания
14*1024*336048168960кб
Const n=10;
var a:array[1..n] of integer;
max,i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
a[i]:=random(21)-10;
write(a[i],' ');
end;
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max = ',max);
for i:=1 to n do
if a[i]=max then write(i:3);
writeln;
end.
Пример:
Исходный массив:
-6 -9 10 -6 0 0 -8 10 -8 2
max = 10
3 8
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
(ReadInteger('n=')*6 mod 10).Println
end.
<u>Пример</u>
n= 1457
2
