program dz2;
uses crt;
var x: integer;
begin
write ('введите номер месяца');
read (x);
if (x>=3) and (x<=5) then
write ('весна');
if (x>=6) and (x<8) then
write ('лето');
if (x>=9) and (x<=11) then
write ('осень');
if (x=12) or (x<=2) then
write ('зима');
end.
1.Типографские литеры определённого размера и рисунка для набора, а также отпечаток их.2.Гарниту́ра<span> в </span>типографике<span> — набор из одного или нескольких </span>шрифтов в одном или нескольких размерах и начертаниях, имеющих стилевое единство рисунка и состоящих из определённого набора типографских знаковформатирование текста<span> — Подготовка текста документа к выводу на печать в необходимой для этого форме. Включает в себя форматирование абзацев, отдельных символов, заголовков, сносок, колонцифр и т.д. </span>.
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var a:=ReadSeqIntegerWhile(x->x>0).ToArray;
write('Периметр ', a.Count,'-угольник равен ',a.Sum);
end.