Var input:integer;
begin
write('Enter number - ');
readln(input);
case input of
1..9:writeln('Odnozhachnoe!');
else writeln('Error!');
end;
end.
Потому что у каждого файла свой объём информации например один файл может весить 2 гигабайта (презентация) а например другой файл может весить меньше гигобайта (аудиозапись)
Program HelloWorld;
var S: double;
begin
writeln('Введите массу тела:');
readln(S);
writeln('Масса кислорода и атомов равна:');
S:=S*0.68;
writeln(S:15:2);
end.
<span>var a,b,c,min:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min = ',min);
end<span>.
Пример:
2 3 1
</span><span>min = 1</span></span>
Часть последовательности, начинающаяся с числа 50 раскодируется как ProgramComputer IBM PC, а для раскодирования первой части (
<span>88 AD E4 AE E0 AC A0 E2 A8 AA A0) надо знать кодировку, так как это дополнительная часть таблицы ASCII (значения с кодом больше 7F).
Кодировка в задании не указана.
</span>