Ответ:
program CountNum;
uses
SysUtils;
var
n, i, c: Integer;
s: string;
begin
Write ('Введите N: ');
ReadLn (n);
s := IntToStr (n);
c := 0;
for i := 1 to Length (s) do begin
if StrToInt (s [i]) mod 2 = 0 then
Inc (c);
end;
WriteLn ('Количество четных цифр = ', c);
ReadLn;
end.
1) не ясен вопрос
2) 0 2 6 12 20 30 42 56 72 90
3) 5
4) for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
Код полностью
var
a: array[1..10] of integer;
i, k: integer;
begin
for i := 1 to 10 do
begin
a[i] := sqr(i) - i;
write(a[i], ' ');
end;
writeln;
K := 0;
for i := 1 to 10 do
if (a[i] > 10) and (a[i] < 70) then
k := k + 1;
Write(k);
writeln;
for i := 1 to 10 do
begin
if (a[i] < 0) then
a[i] := -1
else a[i] := 1;
write(a[i], ' ');
end;
end.
-18 | 36 | 0 | -3 | 4 | 15 |
-18 - 1 элемент в массиве с индексом 0 (потому что это первый элемент в массиве).
36 - 2 элемент в массиве с индексом 1 (потому что это второй элемент в массиве).
0 - 3 элемент в массиве с индексом 2 (потому что это третий элемент в массиве).
-3 - 4 элемент в массиве с индексом 3 (потому что это четвертый элемент в массиве).
4 - 5 элемент в массиве с индексом 4 (потому что это пятый элемент в массиве).
15 - 6 элемент в массиве с индексом 5 (потому что это шестой элемент в массиве).
Слово вересень у словнику розташовано раніше, ніж жовтень. Бо літера "В" йде раніше, аніж - "Ж".