Program ok;
var
num:integer;
a,b,c:integer;
begin
readln(num);
a:=num mod 10; num:=(num-a)div 10;
b:=num mod 10; num:=(num-b)div 10;
c:=num;
num:=a+b+c;
if num or 1 = num then
writeln('Нечетное') else writeln('Четное');
readln;
<span>end.</span>
Program output1;
var M:array [1..100] of integer; {ввод целочисленной переменной M, связанная с массивом}
n,i:integer; {ввод целочисленных переменных n,i}
begin
write('Введите количество элементов массива: '); {ввод кол-ва элементов массива}
readln(n);
for i:=1 to n do {начало цикла for с шагом = 1}
readln(M[i]); {считывание переменной M[i]}
writeln('Введённый массив: '); {вывод массива M[i] на печать}
for i:=1 to n do
writeln(M[i]);
end.
Хочу попередити зразу, що в різних версіях програми алгоритм може дещо відрізнятися.
1. Вибрати в документі МІСЦЕ, куди буде вставлятися зображення.
2. Виконати Вставлення => Зображення => Із файлу.
3. Вибрати у вікні ВСТАВЛЕННЯ ЗОБРАЖЕННЯ потрібний файл.
4. Вибрати кнопку ВСТАВИТИ.
Это структура
.................