1 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
case a of
1:writeln('Зима');
2:writeln('Зима');
3:writeln('Весна');
4:writeln('Весна');
5:writeln('Весна');
6:writeln('Лето');
7:writeln('Лето');
8:writeln('Лето');
9:writeln('Осень');
10:writeln('Осень');
11:writeln('Осень');
12:writeln('Зима');
end;
end.
2 Вариант
var a:integer;
begin
writeln('Введите номер месяца: ');
readln(a);
if (a=12) or (a=1) or (a=2) then writeln('зима');
if (a=3) or (a=4) or (a=5) then writeln('весна');
if (a=6) or (a=7) or (a=8) then writeln('лето');
if (a=9) or (a=10) or (a=11) then writeln('осень');
end.
Скачай в интернете активатор, и он активирует тебе автоматически Windows, там их много поищи по поисковику.
//Pascal ABC.NET v3.0 сборка 1111
Var
a,b,c:integer;
begin
randomize;
a:=random(1,9);
b:=random(1,9);
write(a,'*',b,'=');
read(c);
if c=a*b then writeln('Yes') else writeln('No');
end.
<span>Пример вывода:
</span>6*9=
<span>Пример ввода:
</span>54
<span>Снова вывод:
</span>Yes
№2 Например:
1) не забыть что-то
2) донести до кого-либо какую-либо информацию куда либо
3)<span>подготовить доклад
№3
По моему мнению есть два основных оформления текста:
</span><span>1. Поздравительный текст, отличается оформлением с завитушками, наклонным рукописным шрифтом, назначение — красиво поздравить кого-то.2. Газетный текст, журнальный — содержит небольшого по размеру колонки, хорошо читабельный шрифт, назначение — донести как можно лучше информацию до человека, заинтересовать, занять.</span>
Правильным ответом будет являться : А22Е24.
1)Сначала мы заметим закономерность чисел после "А": +3; +6; значит дальше увеличивается ещё на 6,т.е. +12; +24.
2)Далее закономерность второй буквы, там всё по алфавиту : В,Г,Д,Е,Ё.
3)Последняя закономерность в числах после второй буквы. +3; + 6;+12;+24.
Поэтому ответ : А22Е24.