<span>var {секция описания переменных}
Number,Num1,Num2,Sum: integer;
begin{начало программы}
write('Введите двухзначное число: ');//Вывод строки на экран
read(Number); //переменная Number получает значение с клавиатуры
Num1 := Number div 10; //В Num1 целая часть от деления Number на 10
Num2 := Number mod 10; </span>//В Num2 остаток от деления Number на 10<span>
Sum := Num1 + Num2; //находим сумму Num1 и Num2
write('Сумма двух чисел — ',Sum);//вывод результата на экран
end. {конец программы}</span>
<em>var a, b, c :integer;</em>
<em>begin</em>
<em> read (a, b);</em>
<em> c:=a;</em>
<em> a:=b;</em>
<em> b:=c;</em>
<em> write (a, b);</em>
<em>end.</em>
1. Правильный ответ d.
100(2)+11(8)+10(16) = 4(10)+9(10)+16(10) = 29
2. 63389(10) = F79D(16) Ответ a
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
a, b: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
ЕСЛИ ЧЕТ(сч) ТО
b[сч] := a[сч] * 2
ИНАЧЕ
b[сч] := a[сч] * 3
КОН
КОН;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
Вывод.ЧЦел("%d ", a[сч], 0, 0, 0)
КОН;
Вывод.Цепь("^");
ОТ сч := 0 ДО РАЗМЕР(b) - 1 ВЫП
Вывод.ЧЦел("%d ", b[сч], 0, 0, 0)
КОН
КОН Задание.