===== PascalABC.NET =====
begin
var R := ReadReal('Введите радиус цилиндра:');
var h := ReadReal('Введите высоту цилиндра:');
var S := 2 * Pi * R * h;
Writeln('Площадь боковой поверхности цилиндра ', S:0:5)
end.
Переменная С примет значение: 3
Решение: в информатике int это Integer(целое число). Когда мы хотим извлечь из неумелого числа значение int мы возьмём его целую часть. Здесь 3.86= 3 + 0.86
как видим, целая часть это число 3
Количество цветов n = 2^i = 2^6 = 64
Используем правила деМоргана и др:
=(А+В+С)•~А•~В•~С=А•~А•~В•~С+~А•В•~В•~С+~А•~•ѕ~С=0
(А•~А=0 и т.п)
// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,-10,10); a.Println;
a:=a.Shuffle; a.Println;
a:=a.Where(x->x<>a.Max).ToArray;
a.Println;
end.
Пример:
n = 20
8 -9 1 -5 -5 0 9 -4 -7 -4 -3 9 7 -2 4 6 -2 7 -9 -2
-4 -7 -2 8 9 -3 9 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
-4 -7 -2 8 -3 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9