1. Пользователь с помощью него быстро открывает файлы.
2. •Не могу ответить
•Опять не мону
•То, через что манипулируют(изменяют, управляют) файлами.
Var i:integer;
begin
for i := 1 to 10 do
writeln('1*', i, '=', i);
<span>end.</span>
Ответ:
program raf105;
var m,km: real;
begin
write('Введите метры: ');
readln(m);
km:= m / 1000;
writeln('Это будет ',km,' км.');
end.
Объяснение:
В километре 1000 метров. Делим количество метров на 1000 и получаем дробное число километров
Тип real принимает числа с цифрами после точки (не целые)
Объем равен x * y * i
x - ширина, y - высота, i - кол-во бит для кодирования цвета
i вычисляется по формуле N = 2^i, где N - кол-во цветов
i = 24
Тогда объем равен 1024 * 768 * 24 = 18874368 бит = 2359296 байт = <span>2304 Кбайт = 2,25 Мбайт</span>
var n,k,i,a:longint;
begin
k:=0;
readln(n);
for i:=1 to n do begin readln(a); if(a<0) then k:=k+1; end;
writeln(k);
end.