// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Write('Ср.арифм:',ReadArrReal('>',15).Average)
end.
<u><em>Тестовое решение:</em></u>
> 4 3.7 2.8 1.45 4.15 2 2.47 1.18 3.41 3 2.09 2.0 3.31 2.4 1.94
Ср.арифм:2.66
2. 52 div 8 = 6 целое
2+6=8 целое
√8≈2.828 вещественное
trunc(2.828)=2 целое
15 mod 4=3 целое
3/3=1 целое
2-1=1 целое
Ответ: 1, тип целое
3. Максимальное значение integer в языке Паскаль зависит от реализации. Стандарт языка определяет, что под переменную типа integer необходимо отвести объем памяти, достаточный для хранения значения 32767, т.е.
. В связи с этим в ранних реализациях Паскаля под переменные типа integer отводилось 2 байта памяти. В современных реализациях под переменные этого типа отводится 4 байта, поэтому максимальное значение integer может достигать
или <span>
2147483647.
4. Если надо сохранить целое число, большее в 10 раз максимального значения integer, то нужно для поинтересоваться а) Сколько байт отводится под integer? б) есть ли в данной реализации Паскаля целые числа, под хранение которых отводится большее число байт? </span>Когда integer двухбайтовое, следует использовать четырехбайтное longint, а когда четырехбайтное - поинтересоваться наличием восьмибайтного типа int64.
Есть замечательная формула в информатике N = 2^i, где N - это мощность алфавита, а i - это вес одного символа, следовательно возводим 2 в девятую степень и получаем 512.
Ответ: мощность алфавита равна 512.
program raf105;
var
km,fut: real;
begin
write('Введите расстояние в километрах: ');
readln(km);
write('Введите расстояние в футах: ');
readln(fut);
write('Большее: ');
if km > fut * 0.00045 then writeln(km,' км.')
else writeln(fut,' фут.');
end.
<h3>PascalABC</h3>
Const
K = 13;
Var
A:array[1..K] of integer;
i,n:integer;
Sr,d:real;
Begin
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
Sr:=Sr+A[i];
End;
WriteLn;
Sr:=Sr/K;
n:=1;
d:=abs(Sr-A[n]);
For i:= 2 to K do
Begin
if abs(A[i]-Sr)<d then
Begin
n:=i;
d:=abs(Sr-A[n]);
End;
End;
WriteLn('Sr = ',Sr);
WriteLn('Номер ближайшего к среднему арифметическому: ',n);
End.
