Проверочный тест «Программирование на языке Паскаль»
Вариант 2

2. Определите тип чисел: 1.8, 1.0, 41

4. Определите значение переменной b после выполнения алгоритма
a:=3;
b:=2+a;
a:=b2a;
b:=2*a-b;
5. Определите результат выполнения операции 15 mod 3
6. Определите, что будет напечатано в результате выполнения следующего алгоритма
var k,m:integer;
dat: array[1..10] og integer;
begin
dat[1]:=45; dat[2]:=55; dat[3]:=40; dat[4]:=15; dat[5]:=20; dat[6]:=80;
dat[7]:=35; dat[8]:=70; dat[9]:=10; dat[10]:=45;
m:=dat[1];
for k:=2 to 10 do begin
if dat[k] begin
m:=m+dat[k]; ;
end;
end;
write (m);
end.
7. Сколько существует заполнения массива? Перечислите их.
8. Напишите, используя алгоритмический язык или ЯП Pascal, алгоритм проверки
четности числа.
9. Составьте программу, которая в одномерном массиве размерностью 15 (элементы
массива случайные числа из промежутка от 0 до 9) находит количество элементов
равных 3. Оформите вывод элементов на экран в строчку, количество искомых
элементов на следующей строке хоть с чем нибудь

Показать ответ

Ответ:

АлинаRiver

14.01.2022 18:01

Var a: array of integer; var i: byte; var b: boolean; begin b: =true; setlength(a,8); var n: =0; writeln('введите число: '); readln(i); var d: =i; while i< > 0 do begin a[n]: =i mod 2; i: =i div 2; inc(n); end; setlength(a,n); for i: =0 to n-1 do begin if n=0 then begin write(0); break; end; swap(a[i],a[n-1]); write(a[i]); end; for i: =1 to n-1 do begin if n=0 then break; if a[i-1]< > a[i] then begin b: =false; break; end; end; if (b=false) then write(' = ',d,' это не палиндром') else write(' = ',d,' это палиндром'); end.

0,0(0 оценок)

Ответ:

Dima1208

06.10.2022 03:12

1) Перевести из десятичной системы в шестнадцатиричную:
192 = 0C0h
168 = 0A8h
104 = 68h
109 = 6Dh

2) Записать как одно большое шестнадцатиричное число:
C0A8686D

3) Перевести в двоичную:
0C0A8686Dh = 011000000101010000110100001101101b

4) Сформировать маску подсети из n еденичек и (32 - n) нулей (у нас n = 30):
11111111111111111111111111111100 - маска подсети.

Инвертировать маску подсети, чтобы получить маску сети:
00000000000000000000000000000011 - маска сети.

5) Сделать побитовое И адреса с каждой маской.

Номер узла равен 011000000101010000110100001101101b and 00000000000000000000000000000011b = 01b = 1.

Номер сети равен 011000000101010000110100001101101b and 011111111111111111111111111111100b = 011000000101010000110100001101100b = 0C0A8686Ch.

Его можно записать как IP адрес, переведя каждый байт в десятичную систему счисления и записав через точку:
192.168.104.108

Наибольшее количество компьютеров в сети равно (у нас n = 30):

$2^{32 - n} - 2 = 2^{2} -2 = 2$