Найти и выделить все слова в строке с удвоенной буквой. Visial Busic

Тут есть несколько вариантов, как это можно записать:

Если номера месяцев не превысят 12, то есть имеются ввиду только месяцы одного года, то вот так:

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
if (N = 12)or(N = 1)or(N = 2) then WriteLn('Зима') //если N = 12, 1 или 2, то выводим 'Зима', иначе идём по следующей ветке if, проверяем следующее условие
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна') // тут точно также N = 3, 4 или 5, если нет - то проверяем следующее условие
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Если же номер месяца может превысить 12, то перед проверкой нужно найти остаток от деления этого числа на количество месяцев, то есть на 12. При этом остаток от деления 12 на 12 = 0.

Var
N:integer;
Begin
WriteLn('Введите номер месяца');
ReadLn(N);
N:= N mod 12;
if (N = 0)or(N = 1)or(N = 2) then WriteLn('Зима')
else if (N = 3)or(N = 4)or(N = 5) then WriteLn('Весна')
else if (N = 6)or(N = 7)or(N = 8) then WriteLn('Лето')
else if (N = 9)or(N = 10)or(N = 11) then WriteLn('Осень')
End.

Эти же самые условия можно записать иначе:
if (N>=0)and(N<=2) then
или:
if (N>=0)and(N<3) then

1.  Правильно ли определён тип величины?
а) количество тетрадей - вещественный тип
Конечно, количество тетерадей - это целое число. Но если вспомнить, что целые числа являются подмножеством вещественных, то вполне допустимо использовать и вещественный тип. Так что по-школьному тип должен быть целым, а в реальности программирования все определяется условиями конкретной задачи.
б) кличка собаки - символьный тип
Это правильно.
в) вес контейнера - целый тип
См. a). В частном случае веса контейнеров могут быть целыми. В более общем, если известно, что веса могут быть нецелыми, назначается вещественный тип.
2) Укажите тип величины, если значение равно:
а) ‘компьютер’
символьный тип
б) 115
целый тип
в) 0.15
вещественный тип
3) Из приведённых значений выберите допустимые для величин
а) целого типа (BYTE)
30; -46
б) вещественного типа
-0.126; 15.003;
в) литерного (символьного) типа
‘g’
г) строкового типа
‘солнце’
д) целого типа (INTEGER)
30; -46;
4) Определите является ли величина постоянной или переменной:
а) количество дней в неделе
постоянная величина, равная 7
б) название естественного спутника Земли
Зависит от применения. Название - величина символьного типа. Если это календарь лунных затмений. то название "Луна" - постоянная величина. А если это программа перевода, то на каждом языке "Луна" пишется по-своему и это уже переменная величина.
в) количество дней в январе месяце
В январе 31 день и это постоянная величина
г) количество дней в месяце
Это переменная величина, потому что количество дней в разных месяцах может отличаться.
5) Определите тип для величин:
а) скорость машины
вещественный тип, если скорость может принимать нецелые значения. А если всегда только целые, то и тип целый.
б) название фильма
символьный тип
в) количество учебных предметов
целый тип
6) Для величины КОЛИЧЕСТВО СТРАНИЦ В КНИГЕ выберите допустимое:
293; ‘сорок’; 123; ‘тридцать пять’
Указание количества строк прописью также возможно, все зависит от области использования этой величины. Если с количеством делаются какие-то арифметические или логические действия (подсчет, сравнение), то тип должен быть целым. А если количество только выводится, оно может быть и символьным.