1) посчитать сумму всех нечетных чисел от 230 до 430 // PascalABC.NET 3.0, сборка 1088 var i,s:integer; begin i:=231; s:=0; repeat s:=s+i; i:=i+2 until i>400; Writeln('Сумма нечетных чисел на интервале [230;400]: ',s) end.
Результат выполнения программы: Сумма нечетных чисел на интервале [230;400]: 26775
2) вычислить квадратные корни из чисел : 900, 893, 886,... до тех пор пока это можно делать // PascalABC.NET 3.0, сборка 1088 var i:integer; begin i:=900; repeat Write('(',i:3,',',sqrt(i):9:5,') '); i:=i-7 until i<0; Writeln; end.
3) найти сумму чисел шестизначного числа // PascalABC.NET 3.0, сборка 1088 var n:longint; s:integer; begin Write('n='); Read(n); repeat s:=s + (n mod 10); n:=n div 10 until n=0; Writeln('Сумма цифр числа равна ',s) end.
Тестовое решение: n=472305 Сумма цифр числа равна 21
1-b
2-a
3-a
4-c
5-a
Объяснение:
1. Какие задачи выполняют уровни OSI в процессе передачи данных по сети:
a) уровни выполняют одинаковые задачи, постоянно повторяя передающие сигналы по сети;
b) каждый уровень выполняет свою определенную задачу;
c) первых три уровня выполняют одинаковые задачи, последующие выполняют определенные задачи.
2. Верно ли утверждение: «Каждый уровень модели выполняет свою функции. Чем выше уровень, тем более сложную задачу он решает»:
a) верно;
b) не верно.
3. Какой уровень управляет передачей данных по сети и обеспечивает подтверждение передачи:
a) транспортный;
b) канальный;
c) сеансовый.
4. Какой уровень поддерживает взаимодействие между удаленными процессами:
А) транспортный;
b) канальный;
c) сеансовый.
5. Какой уровень управляет потоками данных, преобразует логические сетевые адреса и имена в соответствующие им физические:
a) сетевой;
b) представительский;
c) транспортный.
Вроде так)