Смотри
Ты должна 137 поделить на два в столбик.
Оййй ты есть в вк?я скину тебе на листке решение
Var x : array[1..100] of integer;
n,i,s,b : integer;
begin
write('n = ');
readln(n);
writeln('Исходный массив:');
for i:=1 to n do begin
write('x[',i,']=');
readln(x[i]);
end;
writeln;
s:=0;
for i:=1 to n div 2 do
begin
b:=x[i]; x[i]:=x[n+1-i]; x[n+1-i]:=b;
end;
for i:=1 to n do
begin
write(x[i],' ');
if i mod 2 = 0 then s:=s+x[i];
end;
writeln;
writeln('s = ',s);
end.
Пример:
<span>n = 6
Исходный массив:
x[1]=12
x[2]=54
x[3]=71
x[4]=30
x[5]=47
x[6]=29
29 47 30 71 54 12
s = 130</span>
// тестировалось на C#.Net Framework 4.5
using System;
class Program
{
static void Main()
{
int x1 = 2, y1 = 1;
int x2 = 6, y2 = 5;
int x3 = 10, y3 = 1;
var a = Distance(x2, y2, x3, y3);
var b = Distance(x1, y1, x3, y3);
var c = Distance(x2, y2, x1, y1);
Console.WriteLine("S = {0}", Square(a, b, c));
Console.ReadKey();
}
//растояние между точками
static double Distance(int x1, int y1, int x2, int y2)
{
return Math.Sqrt((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1));
}
//формула герона
static double Square(double a, double b, double c)
{
var p = (a + b + c) / 2;
return Math.Sqrt(p * (p - a) * (p - b) * (p - c));
}
// теорема косинусов
static double Angle(double a, double b, double c)
{
return Math.Acos((b * b + c * c - a * a) / (2 * b * c));
}
static bool IsAcuteAngel(double alpha)
{
return alpha < Math.PI / 2;
}
}
===== PascalABC.NET =====
begin
ReadInteger.ToString.Reverse.Println
end.
Запускается цикл, который сравнивает результат записанный в таблицу с числом 6 (Строчка кода "Если ток [k] >6").
В случае если сравнение верно, переменной m присваивается значение m+2 (строчка кода "то
m:= m+2"). Если неверно, то с переменной ничего не происходит и проверяется следующее значение.
Можно составить табличку.
1 значение значение переменной m
2 значение значение переменной m
и т.д.
В конце выводится значение переменной m.
m= 10.
Табличку прикрепила
