Pascal в зависимости от времени года "весна", "лето", "осень", "зима" определить погоду "тепло", "жарко", "холодно", " холодно".

Var a,b: string;begin
write('введите время года ==> ');
readln(a);
if (a='зима') then write ('зима ==> очень холодно');
if (a='весна') then write ('весна ==> тепло');
if (a='лето') then write ('лето ==> жарко');
if (a='осень') then write ('осень ==> холодно');
end.

Вот решение данной задачи.

// pascalabc.net 3.3, сборка 1579 от 18.11.2017 // внимание! если программа не работает, обновите версию! begin   writeln('*** исходный массив ***');   var a: =matrrandom(2,4,-10,30);   a.println(4); writeln(4*a.colcount*'-');   writeln('п = ',a.elementsbyrow.where(t-> t.between(1,19))           .aggregate(1,(x,y)-> x*y)) end. пример *** исходный массив ***   24  16  22  12     2    5    1    8 п = 15360

Открываем "Мохнатую азбуку" Бориса Заходера и читаем названия животных на все буквы алфавита.

a. Слово ёж можно зашифровать рисунками жирафа и зебры.

b. Алгоритм расшифровки.
1) смотрим картинку животного.
2) берём его первую букву.
3) берём предыдущую букву.

c. Расшифровать сообщение, которого нет, очень трудно.

d. Нет животных на такие буквы:
Й, Ь, Ы, Ъ, Ю.
Интересная ситуация с буквой Ю. Вот стихи:
Это Южный Ктототам.
Я его придумал сам.
Я вам честно говорю:
Зверя нет на букву Ю!
В одной книге я видел иллюстрацию к этой букве. В качестве Южного Ктототама неожиданно был нарисован... негр.
Таким образом, нельзя закодировать буквы: И, Щ, Ь, Ы, Э.