Program chik;
var a:array[1..1000]of integer;
var n,i:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
if (i mod 2=0)then a[i]:=0;
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
end.
program Task;
var x: real;
begin
// Задание a
readln(x);
writeln(abs(x * x + (x + 2.5) / (3 * x)) - 3 * sqrt(sin(2 * x) - 2 / (1-x)));
// Задание b
readln(x);
writeln(5 * sqrt((2 * x) - 3.5) / (8 * x * x) + exp(x + 2) * cos(3 * x));
// Задание c
readln(x);
writeln((abs(5 * x - 6)) / (sqrt(x * x - 3 + 2.4)) - 3 * Ln(2 / (5 * x)))
end.
Коля нашел скарб.Це слово информатика.Щоб знания получить надо по буквам знайти.Он нашел и получил знания
1. Значение переменной m меняется в цикле следующим образом: -3, -6, -9.
Ответ: -9
2. Значение переменной m меняется в цикле так: -5, 4.
Ответ: 4