Begin
readseqinteger('Введите n чисел:', readinteger('Введите n:')).Where(x -> x > 8).Sum.ToString.Println;
end.
<!DOCTYPE html>
<html>
<head>
<script>
function BbIBOD()
{
let BBOD = document.getElementById("BBOD").value;
let BbIBOD = document.getElementById("BbIBOD");
let B = "";
switch (+BBOD)
{
case 1:
B = "Январь";
break;
case 2:
B = "Февраль";
break;
case 3:
B = "Март";
break;
case 4:
B = "Апрель";
break;
case 5:
B = "Май";
break;
case 6:
B = "Июнь";
break;
case 7:
B = "Июль";
break;
case 8:
B = "Август";
break;
case 9:
B = "Сентябрь";
break;
case 10:
B = "Октябр";
break;
case 11:
B = "Ноябрь";
break;
case 12:
B = "Декабрь";
break;
default:
B = "Такого месяца не существует. ";
break;
}
if ((BBOD < 1)||(BBOD > 12)){B += "И времени года тоже.";}
else
{
let A = +BBOD % 12;
switch ( true )
{
case ((A >= 0)&&(A < 3)):
B += ", Зима.";
break;
case ((A > 2)&&(A < 6)):
B += ", Весна.";
break;
case ((A > 5)&&(A < 9)):
B += ", Лето.";
break;
case ((A > 8)&&(A < 12)):
B += ", Осень.";
break;
}
}
BbIBOD.innerHTML = B;
}
</script>
</head>
<body>
<form onSubmit="BbIBOD(); return false;">
<label for="BBOD" >Введите номер месяца: </label><input id="BBOD" type="text">
<div id="BbIBOD"></div>
</form>
</body>
</html>
Program npow2;
var
n, i, s: integer;
begin
readln(n);
s := 0;
for i := 1 to n do
s := s + i * i;
writeln(s);
end.
Сыр - сор.................................................
<span>Для того, чтобы сделать фоновый цвет, то нужно выбрать необходимый цвет и выбрать заливку.Для основного цвета необходимо выбрать цвет и рисовать кисточкой или карандашом.для намалювання прямоугольника необходимо на панели выбрать фигуру прямоугольника и нарисовать.</span>