Чем помочь?что конкретно нужно? доклад?
<span />
13. C (т.к. последнее было зануление д)
14. B (real)
15. C (24)
16.A (0)
17.D(15)
18.B (но вот что интересно, дак то что и под D подойдёт но не во всех случаях)
19.А
20.D (8) 20 mod 7(пол 6) + 5 div 4 * 2(пол 2) = 8
21. С (12)
22. B(43)
23.D(readln)
24.A(write)
25.C(end)
Вводим числа a и b
переменную k обнуляем
если а больше или равно 0, то инкрементируем k
если нет, то ничего не делаем.
переходим в обоих случаях к следующему циклу
если b больше или равно нулю, то инкрементируем k
если нет то нет.
результат выводим (k)
это наматывание счётчика k
I) компьютерная
II) Локальной сети
III) Топология Звезда:
1)Выход из строя одной рабочей станции не отражается на работе всей сети целом.
2) Лёгкий поиск неисправностей и обрывов в сети.
3) Высокая производительность сети.
4)Гибкие возможности администрирования.
Var age:integer;
begin
readln(age);
if ((age mod 100 >= 10) and (age mod 100 <= 19)) then writeln(age, ' лет')
else if (age mod 10 = 1) then writeln(age, ' год')
else if ((age mod 10 >= 2) and (age mod 10 <= 4)) then writeln(age, ' года')
else writeln(age, ' лет');
<span>end.</span>