===== PascalABC.NET =====
begin
var a := ArrRandomReal(10, -99, 99); // случайные числа
a.Transform(p -> Round(p, 2)); // дробная часть - 2 знака
a.Println;
for var i := 0 to a.High do
if a[i] > 0 then
a[i] /= 2
else if a[i] < 0 then
a[i] := i + 1;
a.Println
end.
Var N,i,x,k:integer;
begin;
writeln('Сколько элементов в последовательности?');
readln(N);
writeln('Введите последовательность чисел');
for i:=1 to N do
begin
readln(x);
if odd(x) then
k:=k+1end;writeln(k/N*100,' %');
end.
Ответ:
сторона квадрата а =
площадь = a² = P² / 4² = P² / 16
алгоритм линейный:
1. Начало
2. Ввод значения периметра Р
3. Расчет площади S = P² / 16
4. Вывод рассчитанной площади S
5. Конец
1)2
2)Для начала об ошибке:Дело в том, что программа дважды прибавляет 1 к сумме прогрессии.
1.6
3)k:=1 меняем на k:=2
<span>writeln(k) меняем на writeln(k-2)
//Однако, есть одна проблема. Если число a меньше или равно 1, программа возвращает 0. В начале прогрессии в любом случае будет 1, а потом уже 1/2 1/3 и т.д..</span>
<span>Все солдатики по 5 грамм, а последний - 3 грамма.</span>