------------------------------------------------------------------
через 3 пары:
1. Перенесли назад Т, осталось Амара, а убрали, осталось Мара
2. Перенесли назад М, осталось Ара, а убрали, осталось Ра
3. Перенесли назад Р, осталось А, а убрали , ничего не осталось
Да, тут уже до меня решили правильно, а я про согласные, которые переносили в конец слова, не писала, тк там А не было.
Var
A,B:integer;
Begin
Write('Введите трёхзначное число: ');
ReadLn(A);
B:=A div 100;
A:=A mod 10;
if B>A then WriteLn('Количество сотен больше')
else if B<A then WriteLn('Количество единиц больше')
else WriteLn('Количества сотен и единиц равны')
End.
Program z;
Uses crt;
Var a,n,i,sum, pro:integer;
Begin
Sum:=0;
Pro:=1;
Writeln ('введите число a'); read (a);
Writeln('введите число n(>a)'); read (n);
For i:= a to n do
Begin
If odd(i) then
Begin
Sum:= sum+i;
Pro:= pro*i;
End;
End;
Writeln('sum=', sum);
Writeln('pro=', pro);
End.