Const N=10;
var a:array [1..N] of integer;
i,sum:integer;
sr:real;
begin
sr:=0; sum:=0;
for i:=1 to N do
begin
a[i]:=random(10)+1;
sum:=sum+a[i];
end;
for i:=1 to N do
write(a[i]:3);
writeln;
sr:=sum/10;
writeln('Среднее значение элементов массива:',sr);
end.
Данное уравнение можно разбить на три строки (на фото красным цветом)
1) первая скобка(то есть содержимое до знака логического сложения V) и вторая скобка истинны
2) первая скобка истинна, вторая ложна
3) первая-ложь, вторая истинна
Далее составляем таблицу для четырех переменных (2^4=16 строк)
Выбираем в столбцах со стрелками ИСТИНА-ИСТИНА (то есть 1 - 1) Делаем вывод для первой строки нет решений
Для второй строки (1-0) получаем два решения Отмечены знаком "плюс"
Для третьей строки (0-1) также два решения Итого 4 решения
1)
// PascalABC.NET 3.3
begin
var n:=readInteger;
writeln(SeqGen(n,2,x->x+2).Sum);
end.
2)
var n,s,i:integer;
begin
readln(n);
s:=0;
for i:=1 to n do s:=s+2*i;
writeln(s);
end.
Пример:
5
30
^- конъюнкция, знак умножения(×);(операция И)
\/-дизъюнкция, знак сложения(+);(операция ИЛИ)
&-Тоже конъюнкция
1) Печатает 10 раз надпись <span>Hello, world!
2) Печатает значение "i'' (В данном случае напечатает все числа от 1-15)</span>