Ответ:
A) 320 бит
Объяснение:
1) 2 байта * 20 символов = 40 байт;
2) 1 байт = 8 бит;
3) 40 * 8 = 320;
//PascalABC.NET 3.3,сборка 1627 от 27.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var a:=0;var t:=0;
for var i:=1 to 3 do
begin
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.
Или как в школах учат ->
var a,t:integer;
begin
for var i:=1 to 3 do
begin
a:=0; t:=0;
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.
Самый простой способ навскидку - основываясь на расширении файла. Есть более распространенные расширения типа jpg, png, doc, avi, mp3. Все и так знают что там подразумевается
Но бывают расширения малознакомые. Или предназначенные для определенных предложений, или использующиеся для по разному. Вообще смотришь и не понимаешь откуда и зачем это может быть
Тогда для определения файл надо открыть, но надо быть осторожными. проверить файл на вирусы. Так же файл может быть исполняемым, потому надо открывать его на просмотр или изменение, но не на исполнение.
Так же может не оказаться программы для открытия данного файла, а по текстовому виду (если открыть в блоктоне) можно вообще не понять то это за файл и для чего
Думаю проблема более менее раскрыта
Если я всё верно понял то программа должна сложить цифры числа и поделить их на количество этих цифр например число 12345 должно будет обработаться так 1+2+3+4+5=15 15/5=3, программа на скрине, я её сделал не только для этого примера, туда можно ввести любое число и программа сработает верно, программу не комментировал надеюсь всё и так понятно
var
a:array[1..100] of integer;
x,i,n,min:integer;
begin
readln(n);
x:=1;
read(a[1]);
min:=a[1];
for I:=2 to n do
begin
read(a[i]);
if a[i]<min then
begin
min:=a[i];
x:=1
end;
if a[i]=min then x:=x+1;
end;
writeln(x)
end.
Комментарий: n- количество элементов массива, вводится с клавиатуры в диапазоне от 1 до 100
