По видимому, А=6, если проверить, то цикл повторяется 3 раза
Program index;
Uses crt;
Var A: array [1..10] of integer;
i,m: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
Writeln ('Введите число m');
Readln (m);
for i:=1 to 10 do
begin
if a[i]=m then
Write (i,' ');
end;
readln;
readkey;
end.
Ответ:
Общий объём статьи равен x · 64 · 48 · 16 бит = 48 Кбайт.
Следовательно, количество страниц в статье равняется:
x = (48 · 1024 · 8)/(64 · 48 · 16) = 8.
Правильный ответ указан под номером 3.
Ответ:
Для начала,переведем 543 в шестнадцатиричную систему:
543 из 8-в 16
543(степени числу 5-2,числу 4-1,числу 3-0)
543 (8)=5*8^2+4*8^1+3*8^0=5*64+8*4+3*1=320+32+3=355 (16)
Program month;
uses crt;
var m: integer;
begin clrscr;
Write('M = ');
readln(m);
case m of 1: writeln('January');
2: writeln('February');
3: writeln('March');
4: writeln('April');
5: writeln('May');
6: writeln('June');
7: writeln('July');
8: writeln('August');
9: writeln('September');
10: writeln('October');
11: writeln('November');
12: writeln('December');
end;
end.