Int get_lessons(int week){
if(week < 1 || week > 7) return 0; // Если ввели не номер дня недели
else if (week == 1) return 6;
else if (week == 2) return 6;
else if (week == 3) return 6;
else if (week == 4) return 6;
else if (week == 5) return 7;
else if (week == 6) return 0;
else return 0;
}
// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
1)
begin
var n:=ReadInteger('Введите n-> ');
var s:=0;
for var i:=1 to n do
s+=i*i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 14
2)
begin
var n:=ReadInteger('Введите n-> ');
var s:=1;
for var i:=1 to n do
s*=i;
Println('Сумма:',s);
end.
Пример:
Введите n-> 3
Сумма: 6
A и b - это, я так понял, x и y? Тогда так.
П1 <-> П0 3 <-> x^y 2 , 5 ИП0 ИП1 * * - 1 , 7 8 ИП0 x^2 * + 2 , 5 ИП1 * - 1 + С/П
===== PascalABC.NET =====
type
reals = file of real;
procedure CreateReals(fn: string; var f: reals);
begin
Rewrite(f, fn);
for var i := 1 to 101 do
Write(f, Random(-50.0, 50.0));
f.Close
end;
function GetAverage(f: reals): real;
begin
Result := f.Elements.Average;
end;
function CountElements(f: reals; m: real) :=
f.Elements.Where(p -> p < m).Count;
begin
var f: reals;
var fn := 'Reals.bin';
CreateReals(fn, f);
Reset(f, fn);
var avg := GetAverage(f);
avg.Println;
CountElements(f, avg).Println
end.
В таблице типа «объект-свойство» одна строка содержит информацию об одном объекте. Столбцы - отдельные характеристики (свойства) объектов. (Например каталог книг: в строках объекты - книги; в столбцах их свойства - автор, название, год выпуска и т.п.).
В таблице типа «объект-объект» отражается взаимосвязь между различными объектами. (Например таблица успеваемости: в строках объекты - ученики; в столбцах объекты - учебные дисциплины; цифры на пересечении строк и столбцов показывают их взаимосвязь - полученные оценки.)