1) 25
2) <span>Обработка Паскаль
3) </span>Обработочка строк в Паскаль
4) Паскаль
5) Оскал
6) 4
7) Обраб тка стр к в Паскаль
8) a:=дела? | b=Привет!
9) В Паскакль есть много функций (вообще любую фразу состоящую из 5 слов, символов отделенных пробелом)
10) SоооS
1 книга = 2048*256*128 = 67108864 байт = 65536 кбайт = 64 мбайт.
750 гб диска = 768000 мбайт
768000/64 = 12000 книг
Var
A:byte;
Begin
WriteLn('Введи номер месяца');
Read(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.
<span><em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(25,1,99); a.Println;
Writeln('max-min=',a.Max-a.Min);
Writeln('Среднее арифметическое=',a.Average);
Writeln('Сумма нечетных=',a.Where(x->x.IsOdd).Sum);
end.</span>
<u>Пример</u>
29 64 88 37 45 50 81 67 69 93 82 42 5 22 42 17 11 21 94 6 6 58 51 24 14
max-min=89
Среднее арифметическое=44.72
Сумма нечетных=526
4. 0-11 1-12 2-7 3-10 4-11 5-10 6-14 7-12 8-5 9-7
5. Ужин вечером, а завтрак утром. Лето жаркое, а зима холодная. Шоколад коричневый, а молоко белое. Мороженое холодное, а кипяток горячий. Январь длинный, а февраль короткий. Дело скучное, а игра весёлая. Лежать вредно, а плавать полезно.
6. 5 фигурка