1)
var A: array [1..6,1..4] of integer;
i,j: integer;
begin
randomize;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
A[i,j] := random(20) - 10;
end;
end;
for i := 1 to 6 do begin
for j := 1 to 4 do begin
if (A[i,j] == 0) then begin
writeln("0 v stroke ", i);
continue;
end;
end;
end;
end.
2)
var B: array [1..10] of integer;
i: integer;
begin
for i := 1 to 10 do begin
if (i mod 2 == 0) then B[i] := 5;
else B[i] := 2;
end;
for i := 1 to 10 do begin
writeln(B[i]);
end;
end.
А) для представления объектов окружающего мира могут быть использованы: макет застройки жилого района и фотоснимки движения воздушных масс;
б) для объяснения известных фактов могут быть использованы: фотоснимки движения воздушных масс, модель полёта самолёта новой конструкции в аэродинамической трубе и схема строения внутренних органов человека;
в) для проверки гипотез и получения новых знаний об исследуемых объектах могут быть использованы: фотоснимки движения воздушных масс, модель полёта самолёта новой конструкции в аэродинамической трубе и схема строения внутренних органов человека;
г) для прогнозирования могут быть использованы: фотоснимки движения воздушных масс, расписание движения поездов и модель полёта самолёта новой конструкции в аэродинамической трубе;
д) для управления могут быть использованы: расписание движения поездов.
Ну если же у вас такой же перечень как и у меня.
Вот) Тут используется формула
и, как я понимаю, всё таки
, а не
var
x, res: real;
i, n: integer;
begin
writeln('Enter n, x:');
readln(n, x);
res := 0;
for i := 1 to n do
res := res + cos(exp(i * ln(x)));
writeln(res);
end.
=======
var
A: real;
i: integer;
begin
writeln('Enter A:');
readln(A);
i := 1;
while 1 / (2 * i) >= A do
i := i + 1;
writeln('a_', i, ' = ', 1 / (2 * i));
end.
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a.Take(4).Aggregate(1.0, (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>3.12 -52.52 16 132.52 0 -6 12.707 0.0018</h3><h3>-347440.723968 </h3>
Системный признак (категория) текста, связанный со свойством текста фиксировать знания о мире, отражающие авторское мировосприятие, выраженное в конкретной речевой форме.
Выделяют виды
<span> Выделяются следующие виды информации информаций: логическая и эстетическая.</span>