Program n_1;
var a, b, c, d:integer;
begin
readln(a);
b:=a mod 10;
c:=a div 10 mod 10;
d:= a div 100 mod 10;
writeln('Число ', a, ' состоит из ', d, ' сотен, ', c, ' десятков и ', b, ' единиц');
end.
массив это упорядоченный набор данных одного типа, снабженных индексами.
максимальная разность двух элементов достигается тогда, когда один максимален, а другой минимален. значит задача сводится к нахождению максимального и минимального элементов массива и нахождении их разности.
<имя массива>(<индекс>) А(10) [b;e]
e-b наибольшая разность двух чисел
max:=mas[0];
For i:=1 to N do
if ((mas[i] mod 2 <>0)and(max<mas[i]))then max:=mas[i];
предлагаю писать слова наооборот.Например:(я напишу,,я отправляюсь на Марс,и прибуду в час ночи,,)так это будет выглядеть:,,ичон сач в удубрип и ,сарМ ан ьсюялварпто я,,. Удачи))
Он обожал Моцарта, но главным его кумиром стал Людвиг ван Бетховен - соотечественник и современник