Шаг 1. Узнаёшь коды символов по таблице нужной кодировки (ну или слентяйничать, как я)
Шаг 2. Перевести все коды из
в
калькулятором... Или нет х)
Шаг 3. Записать всё по порядку. Если кодировка однобайтная, как сейчас, то можно хоть подряд...
4D 79 20 68 61 70 70 79 20 45 6E 67 6C 69 73 68
Program primer;
Uses crt;
var a: integer;
begin clrscr;
write('Введите число a = ');
readln(a);
writeln;
if ((a mod 10) = 4) or ((a div 10) = 4) then
writeln('Цифра 4 входит в число ')
else
writeln('Цифра 4 не входит в число ');
readln;
end.
Var r,v:real;
begin
write('Рост? '); readln(r);
write('Вес? '); readln(v);
if (r >= 168)and(r <= 178)and(v < r-115) then writeln('Принят')
else writeln('Не принят');
readln
<span>end.</span>
1. Обьем стереоаудиофайла находится по формуле V=2*f*t*I, следовательно V=2*1*48000*16=1536000 бит, потому что меряем в битах,
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal('Вводите:', ReadInteger('Количество чисел?'));
var imax := a.IndexMax;
Writeln('Первое максимальное число ', a[imax],
' имеет номер ', imax + 1)
end.
<h2>Пример</h2><h3>Количество чисел? 5</h3><h3>Вводите: 14 2.17 15.2 8 15.2</h3><h3>Первое максимальное число 15.2 имеет номер 3</h3>