Ну по стандарту показать примеров 10 и решение столбиком...
преобразование (перевод) Из 16/10/8 систем - столбиком
,а обратно умножением со степенями, ну общем всё как по рецепту...
Правда ему ещё надо объяснить как решать столбиком, как делить\множить\складывать\вычитать и что такое степень...
Ну и общую теорию что такое системы и какие бывают...
1) for R:=10 downto 1 do
writeln(R);
2) Делается аналогично, только используется цикл to и в теле цикла будет 2 оператора
С текстовой: клавиатура, телефон, домофон, МФУ, портативный DVD проигрыватель.
С численной: калькулятор, клавиатура, телефон.
Со звуковой: компьютер, телефон, радио, телевизор.
Programm p1;
var i,s:integer;
arr1:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
writeln ('Введите элемент массива ',i);
readln(arr1[i]);
end;
s:=0;
for i:=1 to 8 do
begin<span>
if (arr1[i] mod 2 <> 0) and (arr1[i]>0) then s:=s+arr1[i];</span>
end;
writeln('Сумма нечетных положительных элементов равно: ',s);
<span>end.</span>