Аудиофайл для колонок.
Видеофайл для монитора.
Текстовый файл для монитора.
Графический файл для монитора.
Скорее всего неверный подбор - принтер. Объясни свой вопрос поподробнее.
Var a,b,x:real;
<span>begin </span>
<span>writeln('Введите зачения чисел a и b'); </span>
<span>read(a,b); </span>
<span>x:=a+b; </span>
<span>writeln('Сумма чисел a+b=',x); </span>
<span>end. </span>
"dpi" - точек в дюйме. 1200 * 10,16 * 1200 * 10,16 = 148644864 точки. log2(32) = 5 битов. Для хранения 5 битов нужен 1 байт. Т. о. байт на точку или 148644864 / 1024 / 1024 ~= 141,76 МБ. Если предположим, что 5 битов раскидываются по разным байтам, сжимая таким образом файл, то 148644864 * 5 / 1024 / 1024 / 8 ~= 88,6 МБ.
Ответ:
4
Объяснение:
Надо найти V2/V1.
x - кол-во символов. По условию x1=x2=x.
V2=x*16;
V1=x*4
Делим уравнения и получаем: V2/V1=4
Названия и адреса файлов подгоните сами. Я выделю в коде жирным шрифтом.
uses crt;
var i,o:text;
s:string;
ans:integer;
begin
assign(i,'C:\Pascal\input.txt'); reset(i);
assign(o,'C:\Pascal\output.txt'); rewrite(o);
while eoln(i)<>true do
begin
readln(i,s);
if ((s[2]>s[1]) and (s[3]>s[2]) and (s[4]>s[3])) or ((s[2]<s[1]) and (s[3]<s[2]) and (s[4]<s[3])) then
begin
writeln(o,s);
inc(ans);
end;
end;
writeln(ans);
close(o);
<span>end.</span>