Var s, i:integer;
Begin
S := 3;
For i := 2 to 5 do //будет выполнено 4 раза
S := S + 2*i;
Writeln(S);
end.
То есть на первом шаге цикла мы имеем s=3+2*2=7
2: s=7+2*3=13
3: s=13+2*4=21
4: s=21+2*5=31
Ответ: 31
Var k, s: integer;
Sea: array [1..12] of integer;
begin
Sea[1] := 170; Sea[2] := 170; //заполняем массив
Sea[3] := 190; Sea[4] := 210;
Sea[5] := 230; Sea[6] := 220;
Sea[7] := 240; Sea[8] := 160;
Sea[9] := 190; Sea[10] := 210;
Sea[11] := 170; Sea[12] := 170;
s := 100; //начальное значение s
For k := 1 to 12 do //будет выполнено 12 раз
if Sea[k] > 220 then
begin
s := s + Sea[k];
end;
Writeln(s);
end.
Таким образом, 12 раз проверяется условие, больше ли за определённый год( соответствует шагу цикла) приплыло людей, чем 220. В первый раз условие будет выполнено на 5 шаге
s=100+230=330,
второй- на 7
s=330+240=570
Ответ: 570
5)A2=2
B2=7
C2=X
D2=5
На графике видно, что 2 сектора равны.
1)x=2, слишком мало
2)x=4, не равен ни одному сектору
3)x=7
4)x=11, смотри пункт 2
Ответ: 3
Частично и часто...спасибо за внимание.
О, да тут куча всяких допущений и пренебрежений, это ж физическая задача в первую очередь. Какую траекторию будем брать для пули? Пистолет в руке у Ржевского и центр мишени на одной горизонтали или нет? Сопротивление воздуха будем считать или нет? Все это нужно знать, чтоб решить такую задачу.
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк (столбцов) в матрице:');
Writeln('*** Исходная матрица ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (su,sd,sl):=(0,0,0);
for var i:=0 to n-1 do
for var j:=0 to n-1 do
if i<j then su+=a[i,j]
else
if i=j then sd+=a[i,j]
else sl+=a[i,j];
Writeln('Суммы элементов:');
Writeln(' - верхней треугольной матрицы ',su);
Writeln(' - главной диагонали ',sd);
Writeln(' - нижней треугольной матрицы ',sl)
end.
<u>Пример</u>
Количество строк (столбцов) в матрице: 4
*** Исходная матрица ***
-73 -89 4 39
77 -32 23 -45
-29 -70 -88 -40
-83 9 21 -46
----------------
Суммы элементов:
- верхней треугольной матрицы -108
- главной диагонали -239
- нижней треугольной матрицы -75
<u>"Школьный" вариант</u>
const
nn=20; { максимальный размер }
var
a:array[1..nn,1..nn] of integer;
i,j,n:integer;
su,sd,sl:longint;
begin
Write('Количество строк (столбцов) в матрице:');
Readln(n);
Randomize;
Writeln('*** Исходная матрица ***');
su:=0; sd:=0; sl:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(199)-99;
Write(a[i,j]:4);
if i<j then su+=a[i,j]
else
if i=j then sd+=a[i,j]
else sl+=a[i,j]
end;
Writeln
end;
Writeln('Суммыа элементов:');
Writeln(' - верхней треугольной матрицы ',su);
Writeln(' - главной диагонали ',sd);
Writeln(' - нижней треугольной матрицы ',sl)
end.
Ну есле за 2 сек ДВА МИЛЛИОНА то за 8 сек ВОСЕМЬ МИЛЛИОНА